procedure TActivities.SendToDB;
var
  Query: TFDQuery;
  i: Integer;
begin
  Query:= TFDQuery.Create(nil);
  with Query do
  try
    Connection:= FFDB; // TFDConnection
    try
      SQL.Text:= 'Execute procedure Some_proc1(:date_from, :date_to)';
      ParamByName('date_from').AsDate:= FDFrom;
      ParamByName('date_to').AsDate:= FDTo;
      SetTransaction(Query, True);
      ExecSQL;
      Transaction.Commit;
    except
      on E: Exception do
      begin
        Transaction.Rollback;
        SetTransaction(Query, True);
      end;
    end;
 
    SQL.Text:= 'execute procedure some_proc2(:date_id, :user_id)';
    for i:= Low(FArrActivities) to High(FArrActivities) do
      with FArrActivities[i] do
      try
        ParamByName('date_id').AsDate:= DateID;
        ParamByName('user_id').AsString:= UserID;
        SetTransaction(Query, True);
        ExecSQL;
      except
        on E: Exception do
        begin
          Transaction.Rollback;
          SetTransaction(Query, True);
          Continue;
        end;
      end;
    Transaction.Commit;
  // а вот это работает
  with Query do
  begin
    Close;
    SQL.Text:= 'insert into t_some_table (date_id, user_id) values (:date_id, :user_id)';
    ParamByName('date_id').AsDate:= DateID;
    ParamByName('user_id').AsString:= UserID;
    ExecSQL;
    Transaction.Commit;
  end;
end;

procedure TGIOActivities.SetTransaction(Query: TFDQuery; Write: Boolean);
begin
  with Query do
  begin
    case Write of
      False:
        if Transaction <> FFTRRead then
          Transaction:= FFTRRead;
      True:
        if Transaction <> FFTRWrite then
          Transaction:= FFTRWrite;
    end;
    Transaction.StartTransaction;
  end;
end;