Lauftext von rechts nach links

[Natcree]

Warum startet er den Timer nicht mehr wenn ich ihn erneut aktiviere

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
label1.caption:='';
timer1.Enabled:=true;
end;

Delphi-Quellcode:

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  a:='Anrede';
  inc(i);
  if i > length(a)then
  begin
  timer1.Enabled:=false;
  exit;
  end;
  Label1.caption:= label1.Caption+ a[i];
end;