[lmikle]

что-то типа такого:

Код:

var
  AStream : TFileStream;
  AData : Pointer;
  ADataLength : Integer;
begin
  GetMem(AData,ADataLength);

  // Забираем кусок файла в память
  AStream := TFileStream.Create('Здесь имя файла',fmOpenRead);
  AStream.Seek(1024,soFromBegining);
  AStream.ReadBlock(AData,ADataLength);
  AStream.Free;

  // Здесь считаем CRC
  ...

  // Освобождаем память
  FreeMem(AData,ADataLength);
end;