[roman]

¿No te sirve algo así?

Código Delphi [-]
var
  Stream: TFileStream;

begin
  Stream := TFileStream.Create('CalendarCombo.dcu', fmOpenRead);

  try
    Stream.Seek(Pos, soBeginning);
    Stream.ReadBuffer(Buf, SizeOf(Buf));
  finally
    Stream.Free;
  end;
end;

// Saludos