[live_4_ever]

Еще так можно:

Кидаешь таймер и Label1.
Потом для таймера прописываешь:

Код:

procedure TForm1.Timer1Timer(Sender: TObject);
begin
label1.left:=label1.Left+1;
if Label1.Left > Form1.width then Label1.Left := Label1.Left-(Form1.width+Label1.Width);
end;
end.

и обратно

procedure TForm1.Timer1Timer(Sender: TObject);
begin
label1.left:=label1.Left-1;
if Label1.Left = -Label1.Width then Label1.Left := Form1.width+Label1.Width;
end;
end.

Admin: Пользуемся тегами!