[Sanek_ntsk]

Как на форме отабразить время?

[Decoding]

Код:

procedure TForm1.Timer1Timer(Sender: TObject);
begin
   Caption := TimeToStr( Now );
end;

или так

Код:

procedure TForm1.Timer1Timer(Sender: TObject);
begin
   Caption := FormatDateTime( 'am/pm hh:mm:ss', Now );
end;

[Andrevv]

Сообщение от Sanek_ntsk

Как на форме отабразить время?

Воспользуйся процедурой

Код:

var
Hour, Min, Sec, MSec: word;
...
DecodeTime(Time, Hour, Min, Sec, MSec);
...

Hour, Min, Sec - соответственно час, минута, секунда на момент вызова процедуры, считываются из системных часов. Если нужно непрерывно выводить время используй TTimer.