Richtige Laufschrift

[MisterNiceGuy]

Hab jetzt nicht alles gelesen, aber wenn du den Code für ne Laufschrift brachst dann hier:

Code:

procedure Timer1Timer(Sender: TObject);
var wort          : string;
    zeichen,hilfe : char;
    i             : integer;
begin
  wort:=label1.caption;
  hilfe:=wort[1];
  for i:=1 to length(wort) do
    if i<length(wort)
      then
        begin
          zeichen:=wort[i+1];
          wort[i+1]:=hilfe;
          hilfe:=zeichen;
        end
      else wort[1]:=zeichen;
  label1.Caption:=wort;
end;