Unix Time으로 바꿀 때 밀리초까지 구하기

function DateTimeToUnixWithMilliSec(DateTime: TDateTime): Int64;
begin
  Result := Round((DateTime - 25569) * 86400 * 1000.0);
end;