Quiero leer los 200 primeros bytes de un archivo de texto

[DarkMan]

Puedes usar tambien la clase TStream:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var STR: TFileStream;
    Buffer: Array [0..199] of Byte;
    BytesRead: Integer;
begin
  If OpenDialog1.Execute then
  begin
   If not FileExists( OpenDialog1.FileName ) then
       raise exception.Create('el fichero expecificado no existe');
 
   {Si el fichero existe, cargamos el fichero}
   STR:= TFileStream.Create( OpenDialog1.FileName, FMOpenRead );
 
   {Leemos de 200 en 200 bytes}
   BytesRead:= 0;
   STR.Position:=0;
 
   Repeat
    FillChar(Buffer, 200, 0); //Vaciamos buffer
    BytesRead:= BytesRead + STR.Read(Buffer, SizeOf(Buffer)); //leemos 200 Bytes
    Procesar( Buffer ); //procesamos 200 bytes
   until BytesRead = STR.Size;
 
   STR.Free;
  end;
end;