Gibts sowas wie die UNIX Time bei Delphi?

[SubData]

Delphi-Quellcode:

function GetUnixTime(Zeit: TDateTime): LongInt;
const UnixDateDelta = 25569;
begin
  // Liefert die Zeit als Unix TimeStamp zurück...
  Result := Round(((Zeit-UnixDateDelta)*24*60*60)-7200.5);
end;

Mal irgendwo gefunden ^^