Gracias por responder ...
Estoy conciente del uso del Unicode en Delphi 2010 es por eso que intente hacer un cambio ....
Código Delphi
[-]
....
function StreamCRC32(const Stream: TStream; var CRC: Cardinal;
const InitCRC:boolean; const Progress: TProgress): Integer;
var Buffer: PChar; --->> AQUI LO CAMBIE POR PANSICHAR
Count: Integer;
Size: Integer;
TotalSize: Integer;
...
Pero no resulto.
Alguna idea?