backup

procedure TGameForm.TimerTimer(Sender: TObject);
begin
    BufRoad.SendToBack;
    InfiniteGeneration(Road, BufRoad);

    OncomingCarSpawn(OncomingCar1, OncomingCarParameters[1].Speed);
    OncomingCarSpawn(OncomingCar2,OncomingCarParameters[2].Speed);

    if OncomingCar1.Top >= OncomingCar2.Top then
        CheckForColOnc(OncomingCar1, OncomingCar2)
    else
        CheckForColOnc(OncomingCar2, OncomingCar1);

    OncomingCarSpawn(OncomingCar3, OncomingCarParameters[3].Speed);

    if OncomingCar1.Top >= OncomingCar3.Top then
        CheckForColOnc(OncomingCar1, OncomingCar3)
    else
        CheckForColOnc(OncomingCar3, OncomingCar1);

    if OncomingCar2.Top >= OncomingCar3.Top then
        CheckForColOnc(OncomingCar2, OncomingCar3)
    else
        CheckForColOnc(OncomingCar3, OncomingCar2);

    if OncomingCar1.Top >= OncomingCar2.Top then
        CheckForColOnc(OncomingCar1, OncomingCar2)
    else
        CheckForColOnc(OncomingCar2, OncomingCar1);

    SetOncomingCarMovement(OncomingCar1, OncomingCarParameters[1].Speed);
    SetOncomingCarMovement(OncomingCar2, OncomingCarParameters[2].Speed);
    SetOncomingCarMovement(OncomingCar3, OncomingCarParameters[3].Speed);

    CollisionOncomingDetection(OncomingCar1, OncomingCar2, 1, 2);
    CollisionOncomingDetection(OncomingCar1, OncomingCar3, 1, 3);
    CollisionOncomingDetection(OncomingCar2, OncomingCar3, 2, 3);
    CollisionOncomingDetection(OncomingCar1, OncomingCar2, 2, 1);
    CollisionOncomingDetection(OncomingCar1, OncomingCar3, 3, 1);
    CollisionOncomingDetection(OncomingCar2, OncomingCar3, 3, 2);

    PlayerControl(Car);

    CollisionDetection(OncomingCar1, Car, Timer, TryAgainButton);
    CollisionDetection(OncomingCar2, Car, Timer, TryAgainButton);
    CollisionDetection(OncomingCar3, Car, Timer, TryAgainButton);
end;