Lauftext von rechts nach links

[Natcree]

Hier mal der code Es ändert sich nichts

Delphi-Quellcode:

var
a:String;
i:integer;
begin
  a:='Anrede';
  i:=1;
  if i > length(a)then
  begin
  timer1.Enabled:=false;
  exit;
  end;
  Label1.canvas.textout(121+i*16,30,a[i]);
end;