[[maeyanes]]

Me imagino que sería algo parecido:

Código Delphi [-]
var
  fIn: TFileStream;
  sLine: array [0..255] of Char;

begin
  fIn := TFileStream.Create(cFileName, fmOpenRead);
  try
    fIn.Read(sLine, 100); // Lee 100 bytes del archivo...
  finally
    fIn.Free
  end
end;

Saludos...