lauftext

[Balli]

Hey Leute!
Bin neu hier, und hab auch grade erst angefangen zu programmieren(hab informatik in der schule).. also zu meinem problem: wir sollen einen lauftext machen der einmal rund ums fesnter läuft... alles kein problem: er läuft oben entlang, geht an der rechten seite runter, aber wenn er unten links nach links weiterlaufen soll geht er nur noch einen schritt weiter und bleibt dann stehen.. hier mal die procedure:

Delphi-Quellcode:

procedure TForm1.timer_textTimer(Sender: TObject);
begin
IF text.left = 444 THEN
 text.top := text.Top+2
 ELSE text.Left := text.Left+2;
IF text.Top = 430 THEN
 begin
 text.Left := text.left-2;
 end;
end;

danke schon mal

MfG Balli