var
  ibq: TIBSQL;
  WriteTrans: TIBTransaction;
begin
  ibq := TIBSQL.Create(nil);
  try
    try
      WriteTrans:= TIBTransaction.Create(nil);

      with WriteTrans do
      begin
        //задаем параметры транзации, исключая дефолтовые свойства
      end;

      with ibq do
      begin
        SQL.Text := 'delete from table1';
        Transaction:= WriteTrans;
        //задаем остальные параметры кверей, исключая дефолтовые свойства
      end;
  
      try
        ibq.ExecQuery;
        ibq.Transaction.Commit;
      except
        on E:EIBError do
        begin
          ibq.Transaction.Rollback;
          ShowMessage(E.Message);
        end;
      end;
    finally
      FreeAndNil(WriteTrans)
    end;
  finally
    FreeAndNil(ibq);
  end;
end;