[lmikle]

Не знаю, что то ты где то накосячил. Вот живой пример на Delphi 10.2:

Код:

uses
  DateUtils;

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

procedure TForm1.Button1Click(Sender: TObject);
var
  tmUnix : Int64;
begin
  tmUnix := UNIXTimeInMilliseconds;
  Label1.Caption := IntToStr(tmUnix);
end;