Не правильно выполняется запрос

S:='insert into dela '+' (delo)'+  'values (:delo)';
 with ibQuery1 do begin
       close;
        SQL.Clear;
         SQL.add(S);
          Prepare;
         Params[0].AsString:=StringGrid1.Cells[0, n_stroki];
        ExecSQL;
                end ;

        s:='select * from dela';
  with  Form1.IBQuery1 do begin
 
                 close;
                  SQL.Clear;
                  SQL.add(S);
                 open;
                         end;
      N:=0;
      while  not Form1.IBQuery1.Eof  do
       Begin
         N:=N+1;
         form1.combobox1.Items [N]:=Form1.IBQuery1.Fields[1].AsString;
          id_del [n]:=Form1.IBQuery1.Fields[0].AsInteger;
         Form1.IBQuery1.Next;
       End;

 with ibQuery1 do begin
      //Transaction.StartTransaction; если убрать комментарии выдает ошибку что открыта транзакция
       close;
        SQL.Clear;
         SQL.add(S);
          Prepare;
         Params[0].AsString:=StringGrid1.Cells[0, n_stroki];
        Transaction.Commit;
        ExecSQL;
                end ;

ExecSQL;
Transaction.Commit;

   IBQuery3.ExecSQL;
   IBTransaction1.CommitRetaining;