Кидаешь на форму один TLabel, и один TTimer. У таймера свойство Interval выставляешь на 1.
В обработчке события таймера пишешь:
procedure TForm1.Timer1Timer(Sender: TObject);
begin
label1.Left:=label1.Left-1;
if label1.Left=-1 then
label1.Left:=655
end;
end.
Всё.
|