[In0stRAnez]

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

Так можно получить текущее время.

Код:

procedure TForm1.FormCreate(Sender: TObject);
Var str:string;
begin
str := TimeToStr(Time);
label1.Caption:=str;
end;

а как сделать чтоб отдельно секунды показывались?