Преобразование процедуры.

[KingWaR56]

Есть процедура с ADO что нужно переправить чтобы работало с IBquery

begin
Try
            DM.ADOConnection1.BeginTrans;
              with DM.Edit do
                begin
                  Parameters.ParamByName('@ID_organiz').Value:=edit9.Text;
                  Parameters.ParamByName('@Type').Value:=Combobox1.text;
                  Parameters.ParamByName('@name').Value:=Edit1.Text;
                  Parameters.ParamByName('@INN').Value:=Edit2.Text;
                  Parameters.ParamByName('@KPP').Value:=Edit3.Text;
                  Parameters.ParamByName('@OGRN').Value:=Edit4.Text;
                  Parameters.ParamByName('@podr').Value:=Edit5.Text;
                  Parameters.ParamByName('@gorod').Value:=Edit6.Text;
                  Parameters.ParamByName('@FSS_nom').Value:=Edit7.Text;
                  Parameters.ParamByName('@Region').Value:=Combobox2.text;
                  Parameters.ParamByName('@Kp_FSS').Value:=Edit8.Text;
                end;
              DM.Edit.ExecProc;
              DM.ADOConnection1.CommitTrans;
        except
          DM.ADOConnection1.RollbackTrans;
          ShowMessage('Невозможно выполнить. Повторите!');
        end;
DM.Zapros_org.Active:=False;
DM.Zapros_org.Active:=True;

[KingWaR56]

Сделал сам)