laufschrift auf image

[any_key]

aloah
ich hab mal ne kurze frage
undzwar würde ich gerne auf einem image einen text von links nach rechts durchlaufen lassen
wenn er rechts angekommen ist soll er wieder von links ankommen
dazu hab ich jetzt folgenden code

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var i:integer;
begin
  if i=300 then
    i:=1;


  for i:=1 to 300 do begin
    Application.ProcessMessages;
    Image1.Canvas.TextOut(i, 20, 'hallo');
    sleep(10);
    end;
end;

aber irgendwie bleib der text dann einfach bei 300 stehen