[ecfisa]

Hola pmtzg.

Opino igual que mi amigo, veo innecesario mostrar previamente la tabla. Por otro lado no entiendo por que recorrer la tabla para ir aplicando el valor del parámetro ¿ Que sentido tiene utilizar la sentencia SQL entonces ? en ese caso bastaría con hacer:

Código Delphi [-]
  while not dm1.FIBDset1.Eof do
  begin
    dm1.FIBDset1.Edit;
    dm1.FIBDset1.FieldByName('tip_doc').AsString:= 'P'; // supongo que tiene la función FieldByName
    dm1.FIBDset1.Next;
  end;

Pero debo reconocer que no conozco los componentes FIBplus y tal vez difieran radicalmente de los que utilizo.

Por si te puediera orientar, usando un TIBDataSet yo haría:

Código Delphi [-]
...
  with IBDataSet1 do
  begin
    Close;
    SelectSQL.Text:= 'UPDATE PEDIDOS SET TIP_DOC = :TDOC';
    ParamByName('TDOC').AsString:= 'P';
    Open;
  end;
...

Saludos.