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;
