[ecfisa]

Hola Anel.

No, el error "too many actual parameters" no es provocado por la inclusión de:

Código Delphi [-]
with Form1 do

ni tampoco se provoca en la línea:

Código Delphi [-]
Close(fichero);

El error se produce en la línea:

Código Delphi [-]
   ShowMessage('Valor del indice: ' , IntToStr(Inx));  // error por la ','

Al transcribir el código cometí un error de tipeo del que ahora me percato, la línea tendría que ser:

Código Delphi [-]
  ShowMessage('Valor del indice: ' + IntToStr(Inx)); // ( '+' )

Saludos.