Fehler bei Lauftext

[DelphiUser7]

Hallo!
Ich programmiere mir gerade einen Lauftext, der von rechts nach links läuft; Dazu verwende ich eine TPanel-,eine TLabel-, und eine TTimer-Komponente; Folgende Source verwende ich, um das ganze umzusetzen:

Delphi-Quellcode:

procedure TForm1.TextTimer1Timer(Sender: TObject);
begin
  if Label1.Left = 0 then begin
    if Label1.Width = 0 then begin
      label1.left := SongPanel.Width;
      label1.Width := 145;
    end else begin
      label1.Width := label1.Width -1;
    end;
  end else begin
    label1.Left := label1.Left -1;
  end;
end;


procedure TForm1.FormCreate(Sender: TObject);
begin
  Texttimer1.Interval := 10;
  SongPanel.DoubleBuffered := True;
end;

Mein Problem: Sobald der Timer aktiviert ist, d.h. der Text in dem Label läuft zwar, aber er läuft über den Rand des Labels hinaus, bis an den Rand der Form. Dort bleibt er dann stehen;
Weiß vielleicht jemand eine Lösung;

Gruss
DelphiUser7