function TVersionInfo.GetFileDate: int64;var LargeInteger: TULargeInteger;begin if (Valid) and (FFileInfo <> nil) then begin LargeInteger.LowPart := FFileInfo.dwFileDateLS; LargeInteger.HighPart := FFileInfo.dwFileDateMS; Result := LargeInteger.QuadPart; end else Result := 0;end;
(I don't see the relation to the other report?)Anyway, it is hard to reproduce without a complete compilable program (preferably a simple console app without lazarus dependancies) to reproduce.