[Artem28181838]

Всем привет, кто может написать программу которая будет менять каждую секунду дату на 10 сек вперёд?

[lmikle]

А в чем проблема?
Бросаешь на форму таймер. В обработчике пишешь:

Код:

procedure TForm1.Timer1Timer(Sender : TObject);
const
  OneSec = 1/(24*60*60); // Одна секунда
begin
  FDateTime := FDateTime + 10*OneSec;
end;

Ну и инициализация поля:

Код:

type
  TForm1 = class(TForm)
  ...
  private
    FDateTime : TDateTime;
  ...

procedure TForm1.FormCreate(Sender : TObject)
begin
  FDateTime := Now;
end;