[yarockiisergei]

Есть выражение uint64_t result = *(uint64_t*)(&ts);
Как оно будет выглядеть в Delphi???
Вот вся функция

struct TTimeStamp
{
int Time; // The Time field indicates the number of milliseconds that have elapsed since midnight.
int Date; // The Date field indicates the number of calendar days since the start of the calendar (the number of days since 1/1/0001 plus one).
};

uint64_t __fastcall DateTimeToInt64( TDateTime Value )
{
TTimeStamp ts = DateTimeToTimeStamp( Value );
uint64_t result = *(uint64_t*)(&ts);
return result;
}