[lmikle]

В самом Delphi такой функции, если я не ошибаюсь, нет. Но есть вызов соответсвующей функции из API. То, что ты показал в примерах - это Unix Time (т.е. кол-во милисекунд прошедшиз с определенной даты).
Можно получить вот таким образом:

Код:

function UNIXTimeInMilliseconds: Int64; 
var 
  ST: SystemTime; 
  DT: TDateTime; 
begin 
  Windows.GetSystemTime(ST); 
  DT := SysUtils.EncodeDate(ST.wYear, ST.wMonth, ST.wDay) + SysUtils.EncodeTime(ST.wHour, ST.wMinute, ST.wSecond, ST.wMilliseconds); 
  Result := DateUtils.MilliSecondsBetween(DT, UnixDateDelta); 
end;