Игра "Гонки"

[polarity]

Здраствуйте.

Вообщем задание курсовой написать игру гонки. Возникла проблема :
http://s52.radikal.ru/i138/1103/00/b383b5c19f5c.jpg
Как видно, гейм овер наступает не в нужный момент. Работает если сталкиваются в лоб, но так же срабатывает если я перестраиваюсь на соседнюю полосу.

Код таймера, задающего движение встречной машины и проверяющий наличие аварии :

procedure TForm1.Timer2Timer(Sender: TObject);
begin
  image7.Top:=image7.Top+ 15;
 if (image7.Top+image7.Height)>(image5.Top) then
   if (image7.Left+1<=image5.Left) and (image5.Left<=(image7.Left+image7.Width-1))
    then GameOver;
 if (image7.Top+image7.Height)>(image5.Top) then
   if (image7.Left+1<=(image5.Left+image5.Width)) and ((image5.Left+image5.Width)<=(image7.Left+image7.Width-1))
       then GameOver;
 If  image7.Height>=(Form1.ClientHeight) then
 begin
        image7.Hide;
       image7.Top:=1;
        repeat
         image7.Left:=PositionCar;
        until (image7.Left>10);
        image7.Show;
 end;
end;

где image7 - это встречный автомобиль, а image5 - автомобиль игрока. Подскажите что не так?

[polarity]

никто не знает?)

[pu4koff]

procedure TForm1.Timer2Timer(Sender: TObject);
begin
  image7.Top:=image7.Top+ 15;
 if ((image7.Top + image7.Height) >= image5.Top) and
    (image7.Top <= (image5.Top + image5.Height))and
    ((image7.Left + image7.Width) >= image5.Left) and
    (image7.Left <= image5.Left + image5.Width)
 then GameOver;
 If  image7.Height>=(Form1.ClientHeight) then
 begin
        image7.Hide;
       image7.Top:=1;
        repeat
         image7.Left:=PositionCar;
        until (image7.Left>10);
        image7.Show;
 end;
end;

[polarity]

pu4koff, большое спасибо - очень помог!

[glebast]

Слушай, а ты не мог бы скинуть исходник. Я тоже хочу сделать что-то типо
таких гоночек, но у меня не получается. Я был бы очень благодарен.