[JerS]

Amigos en mi ignorancia a la hora de manejar archivos queria saber que se hace exactamente en esta función:

Código Delphi [-]
 BlockRead( fPtr, PChar( lpRec.data )^, dSize, rdTotal );
   if DWORD( rdTotal ) <> dSize then
   begin
      CloseFile( fPtr );
      FreeRecordMem( lpRec );
      GetRecord := nil;
      Exit;
   end;

para hacer lo mismo pero con mi variable TMemory