[GraffyM]

Вот чтото выйшло у меня =) Я сам начинающий, мне 14 и я недавно начал учить делфи.
Кидаеш таймер и Label1.
Потом для таймера прописываеш:

Код:

1 2 3 4 5

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;

Я сделал вроде вышло. Только таймеру поставь интервал 1 =) ну думаю дальше розберёшся =)
Вот тебе и наоборот как ты просил!

Код:

1 2 3 4 5

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