modificar variios registros con dataset

[[Caral]]

Hola
Para empezar me parece que deberia ser al reves, pero:

Código Delphi [-]
// Veo la Tabla, no se para que ?
dm1.FIBDset1.SQLs.SelectSQL.Text:='Select tip_doc from pedidos';
   dm1.FIBDset1.Open;
   dm1.FIBDset1.Active := true;

//Hago un update mostrando un parametro
dm1.FIBDset1.SQLs.UpdateSQL.Text:='Update pedidos' +
   ' set '+
   ' tip_doc = :tip_doc';

xtip_doc := 'P';   // doy valor al parametro

while not dm1.FIBDset1.Eof do
    begin
       for I := 1 to dm1.FIBDset1.Fields.Count - 1 do
          begin
            dm1.FIBDset1.QUpdate.Params[0].Value := xtip_doc;  //aplico el parametro.
         
          end;{end For}
             dm1.FIBDset1.QUpdate.ExecQuery;
          DM1.FIBDset1.Next;
    end;{end while}

    dm1.FIBTran1.Commit;

Yo no lo haria asi.
Saludos