А в чем проблема?
Бросаешь на форму таймер. В обработчике пишешь:
Код:
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;