Nimm dir einfach einen Timer und lasse die Position verändern...
Also irgendwie so:
Delphi-Quellcode:
procedure Timer1....
begin
if (Label1.Left > Form1.Width) then
Label1.Left := 0
else
Label1.Left := Label1.Left + 5;
end;
Nich getestet...
Wird vermutlich auch nicht ganz hinhauen