DateTime und Time

[sk0r]

Hast du auch die Unit 'SysUtils' inkludiert?

Wenn ja:

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
var
  curTime: TTime;
begin
  curTime := time;
  showmessage(timetostr(curTime));
end;