* Fix wrong TimeStampToMSecs result on 32-bit. Fixes issue #40522

(cherry picked from commit ed000e6cd7fcb5f8cc5babe15c43ffe572670396)

rtl/objpas/sysutils/dati.inc

@@ -95,7 +95,8 @@ end;
 
 function TimeStampToMSecs(const TimeStamp: TTimeStamp): Int64;
 begin
-  result := TimeStamp.Time + timestamp.date * msecsperday;
+  //  Int64() typecast fixes issues 40522 and 40568 on 32-bit.
+  result := TimeStamp.Time + Int64(timestamp.date) * msecsperday;
 end;
 
 Function TryEncodeDate(Year,Month,Day : Word; Out Date : TDateTime) : Boolean;