[v1s2222]

Не знаю, подойдет или нет, но все же:

Код:

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  label1.Caption:=TimeToStr(Now)+'; Date: '+DateToStr(Now);
  if(label1.Left<=-label1.Width) then
    label1.Left := 152;

  label1.Left:=label1.Left-3;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  Label1.Left:=152;
  Timer1.Interval:=100;
end;

Поставь на форму таймер и текстовую метку, и вставь код что я дал.