[Neftali [Germán.Estévez]]

Extraído de la ayuda de Delphi (sobre read):

Código Delphi [-]
var
  F1, F2: TextFile;
  Ch: Char;
begin
  if OpenDialog1.Execute then begin
    AssignFile(F1, OpenDialog1.Filename);
    Reset(F1);
    if SaveDialog1.Execute then begin
      AssignFile(F2, SaveDialog1.Filename);
      Rewrite(F2);
      while not Eof(F1) do begin
        Read(F1, Ch);
        Write(F2, Ch);
      end;
      CloseFile(F2);
    end;
    CloseFile(F1);
  end;

end;

Supongo que si en lugar del While pones un:

Código Delphi [-]
  for i:=0 to 200 do begin

debería leer los 200 primeros caracteres.