modificar variios registros con dataset

[pmtzg]

hola amigos tengo el siguiente codigo con el cual deseo actualizar
una tabla de una base de datos de firebird, solo actualizare 1 campo llamado tip_doc

dm1 = es una datamodule
FIBDset1 = es una dataset de FIBplus
FIBTran1 = es la transaction FIBplus

Código Delphi [-]
//por aqui declaro la relacion entre dataset base de datos y transaction

dm1.FIBDset1.SQLs.UpdateSQL.Text:='Update pedidos' +
   ' set '+
   ' tip_doc = :tip_doc';
  
//
dm1.FIBDset1.SQLs.SelectSQL.Text:='Select tip_doc from pedidos';
   dm1.FIBDset1.Open;
   dm1.FIBDset1.Active := true;

xtip_doc := 'P';


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;
         
          end;{end For}
             dm1.FIBDset1.QUpdate.ExecQuery;
          DM1.FIBDset1.Next;
    end;{end while}

    dm1.FIBTran1.Commit;

esto lo habia hecho con un IBtable de IBX y me funciono pero aqui no me funciona no me actualiza el campo
me podrian dar una manita
saludos !!!! gracias por pasar por aca