Lauftext - Label immer auf Mindestgröße

[Tobicaster]

Aktuelles Problem weiter unten^^

Delphi-Quellcode:

implementation
  var
    lauftext, buchstabe: string;
{$R *.dfm}


procedure TForm1.TimerTimer(Sender: TObject);
begin
  buchstabe := copy(lauftext, 1, 1);
  LLauftext.Caption := lauftext + buchstabe;
  lauftext := LLauftext.Caption;
  delete(lauftext, 1, 1);
end;

procedure TForm1.BStartHierClick(Sender: TObject);
begin
  lauftext := Edit.Text;
  LLauftext.Caption := lauftext;
  Timer.Enabled := true;
  Edit.Visible := false;
end;

procedure TForm1.BStopHierClick(Sender: TObject);
begin
  Timer.Enabled := false;
  LLauftext.Caption := '';
  Edit.Visible := true;
end;

Problem ist, dass mir folgendes angezeigt wird:

Zitat:

Test
TestT
estTe
stTes
tTest
TestT
...

Wieso wird beim ersten Mal nur hinzugefügt und nicht gelöscht?