Lauftext von rechts nach links

[Natcree]

Danke habe es jetzt so gemacht

Delphi-Quellcode:

procedure TForm1.Laufschrift(Text:string;timer:ttimer;la:Tlabel);
begin
  a:=Text;
  inc(i);
  if i > length(a)then
  begin
  timer.Enabled:=false;
  exit;
  end;
  la.caption:= la.caption + a[i];
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
i:=-1;
Label2.Caption:='';
Timer2.Enabled:=true;
end;

procedure TForm1.Timer2Timer(Sender: TObject);
begin
Laufschrift('Hallo',timer2,label2);
end;