Lauftext von rechts nach links

[Natcree]

Danke Baumina jetzt klappt es

Delphi-Quellcode:

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

Ist bloss die frage warum hat es nicht mit textout geklappt?????