Auto hält nicht an roter Ampel

[snears]

Guten Abend Delphi-Freunde,

ich soll für die Schule eine Ampelschaltung programmieren, nur leider funktioniert eine Sache noch nicht
und zwar, wie der Titel schon verrät, hält das Auto (shape Komponente) nicht bei rot.

Delphi-Quellcode:

procedure TForm1.Timer2Timer(Sender: TObject);
begin

if (auto1.left = 120) and (rot.Visible = true) then
   begin
   auto1.left := 160;
   end
else
 begin
 auto1.left := (auto1.left +3);
 if auto1.left = 720 then
  auto1.left := 0;
 end;
end;

das problem ist, das wenn es rot ist hält das shape (auto1) nicht an sonder fährt weiter und dann fährt es nicht bis zum punkt 720 sondern noch viel weiter... habe noch versucht erst abzufragen ob es rot ist und dann ob der wagen bei punkt 140 ist damit er dannach anhält.

Ich hoffe ihr könnt mir helfen

Mit freundlichen Grüßen

snears