Laufschrift an Panelgröße anpassen

[Namenloser]

Delphi-Quellcode:

const MyText='Ich wandere von rechts nach links ;-)';
      StepWidth=1;
var x:Integer;
    TextWidth:Integer;

procedure TForm1.FormCreate(Sender: TObject);
begin
   x:=ClientWidth;
   TextWidth:=Canvas.TextWidth(MyText)
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
   Dec(x, StepWidth);
   Refresh;
   Canvas.TextOut(x, 0, MyText);
   Canvas.TextOut(clientwidth+x, 0, MyText);
   If x<-clientwidth-textwidth-textwidth then x:=ClientWidth;
end;

Müsste gehen...
edit: doch nicht :/