Bild kreisen lassen

[crusor]

Hi,

ich möchte mit einem Timer ein Bild kreisen lassen, dass es ,wenn es z.B. left= 200 erreicht hat, stopt und sich dann nach unten bewegt usw. . Wie funktioniert dies genau?

Ich habe schon versucht, dass es bei left=200 stopt, aber es funktionierte nicht:
(ich habe einen button, einen timer und ein bild)


procedure TForm1.Button1Click(Sender: TObject);
begin
if button1.caption='Lauf' then begin Timer1.Enabled:=true end

else if image1.left=200 then begin Timer1.enabled:=false end


end;

procedure TForm1.Button2Click(Sender: TObject);
begin
if image1.left=40 then Timer1.enabled:=false;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
image1.left:=image1.left+10; Timer1.Interval:=1000;


end;



Ich bedanke mich schonmal im vorraus für eure Hilfe.

gruß crusor.