Bild bei Position X stoppen..

[MAD_87]

So hab jetzt das Programm so ziemlich laufen, nur irgendwie stoppt der zwar bei Rot und so jetzt, aber der fährt bei Grün nicht mehr los. Hier mein Code:

Delphi-Quellcode:

procedure TForm1.tiAuto1Timer(Sender: TObject);
begin
imAuto1.Top:=imAuto1.Top-1;
if shgruen1.Visible=true
then
tiAuto1.Enabled:=true
else if (shrot1.Visible=true) and (imAuto1.Top=330)
then tiAuto1.Enabled:=false
else if imAuto1.Top=-40
then imAuto1.Top:=400;
end;

Ich denke dass der richtig ist..

EDIT: Hab meine eigenen Kürzel:
im=Image
sh=Shape
ti=Timer