function UNIXTimeToDateTime(UnixTime : LongWord): TDateTime;
begin
  Result := (UnixTime / 86400) + 25569;
end;

function DateTimeToUNIXTime(DelphiTime : TDateTime): LongWord;
begin
  Result := Round((DelphiTime - 25569) * 86400);
end;