Recherche:

ce doit être un bug d'optimisation je suppose, essai de la désactiver {$O-}

NB: WriteLn sait écrire des entiers, le IntToStr n'est pas nécessaire.

et ça fait quoi si tu fais un



...
{$IFDEF WIN32}
AllocConsole;
{$ENDIF}
WriteLn('ReadSize = ', ReadSize);
BlockRead(id^.F_File, Data, ReadSize, SizeRead);