Как узнать, что данные успешно добавились в БД?

for i := 0 to High(RawReacPerSym) do
  begin
    with DM.ADOQuery1 do
    begin
      Close;
      SQL.Clear;
      SQL.Add('INSERT INTO ReactionPerSymbols');
      SQL.Add('(User_ID, Symbol, Reaction, ExDate, ExName, FingerGroup, IsClassWork)');
      SQL.Add('VALUES (:User_ID, :Symbol, :Reaction, :ExDate, :ExName, :FingerGroup, :IsClassWork)');
      Parameters.ParamByName('User_ID').Value := fAut.User_ID;
      Parameters.ParamByName('Symbol').Value := RawReacPerSym[i, 1];
      Parameters.ParamByName('Reaction').Value := RawReacPerSym[i, 0];
      Parameters.ParamByName('ExDate').Value := BeginTime;
      Parameters.ParamByName('ExName').Value := ExName;
      Parameters.ParamByName('FingerGroup').Value := RawReacPerSym[i, 2];
      if (Mode = tmClassWork) or (Mode = tmDiagnostic) then
       Parameters.ParamByName('IsClassWork').Value := True
      else
       Parameters.ParamByName('IsClassWork').Value := False;
      ExecSQL;
    end;
  end;

DM.SelQuery('SELECT SUM(Reaction) / COUNT(Symbol), Symbol, FingerGroup FROM ReactionPerSymbols WHERE User_ID = :p1 AND ExDate = :p2 GROUP BY Symbol, FingerGroup', [fAut.User_ID, MyNames[ComboBox5.ItemIndex, 0]]);

procedure TDM.SelQuery(SQLText : String; MyParams: array of Variant);
var
  i: Integer;
begin
  with ADOQuery1 do
  begin
    Close;
    SQL.Clear;
    SQL.Add(SQLText);
 
    for i := 0 to High(MyParams) do
      Parameters.ParamByName('p' + IntToStr(i + 1)).Value := MyParams[i];
 
    Open;
  end;
end;

DM.ADOConnection1.BeginTrans;
  MyForm.Show;
 
  try
    for i := 0 to 8 do
    begin
      if Fingers[i, 1] <> 0 then
      begin
        With DM.ADOQuery1 do
        begin
          Close;
          SQL.Clear;
          SQL.Add('INSERT INTO ReactionFingers (User_ID, Reaction, FingerName, ExDate, ExName, FingerPos)');
          SQL.Add('VALUES (:User_ID, :Reaction, :FingerName, :ExDate, :ExName, :FingerPos)');
          Parameters.ParamByName('User_ID').Value := fAut.User_ID;
          Parameters.ParamByName('Reaction').Value := Fingers[i, 0];
          Parameters.ParamByName('FingerName').Value := FingersName[i];
          Parameters.ParamByName('ExName').Value := ExName;
          Parameters.ParamByName('ExDate').Value := BeginTime;
          Parameters.ParamByName('FingerPos').Value := i;
          ExecSQL;
        end;
      end;
    end;
 
    for i := 0 to High(RawReacPerSym) do
    begin
      with DM.ADOQuery1 do
      begin
        Close;
        SQL.Clear;
        SQL.Add('INSERT INTO ReactionPerSymbols');
        SQL.Add('(User_ID, Symbol, Reaction, ExDate, ExName, FingerGroup, IsClassWork)');
        SQL.Add('VALUES (:User_ID, :Symbol, :Reaction, :ExDate, :ExName, :FingerGroup, :IsClassWork)');
        Parameters.ParamByName('User_ID').Value := fAut.User_ID;
        Parameters.ParamByName('Symbol').Value := RawReacPerSym[i, 1];
        Parameters.ParamByName('Reaction').Value := RawReacPerSym[i, 0];
        Parameters.ParamByName('ExDate').Value := BeginTime;
        Parameters.ParamByName('ExName').Value := ExName;
        Parameters.ParamByName('FingerGroup').Value := RawReacPerSym[i, 2];
        if (Mode = tmClassWork) or (Mode = tmDiagnostic) then
         Parameters.ParamByName('IsClassWork').Value := True
        else
         Parameters.ParamByName('IsClassWork').Value := False;
        ExecSQL;
      end;
    end;
 
    with DM.ADOQuery1 do
    begin
      SQL.Clear;
      SQL.Add('INSERT INTO [ResultExercises]');
      SQL.Add('(Название_упражнения, Результат, MostFastFinger, MostSlowFinger,');
      SQL.Add('ID_User, ExDate, Mistakes, Duration, ExLength, IsClassWork, isLevel, Mark)');
      SQL.Add('VALUES (:Title, :Result, :MostFastFinger, :MostSlowFinger,');
      SQL.Add(':User_ID, :ExDate, :Mistakes, :Duration, :ExLength, :IsClassWork, :isLevel, :Mark)');
      Parameters.ParamByName('Title').Value := ExName;
      Parameters.ParamByName('Result').Value := Speed * 60;
      Parameters.ParamByName('User_ID').Value := fAut.User_ID;
      Parameters.ParamByName('ExDate').Value := BeginTime;
      Parameters.ParamByName('Mistakes').Value := Mistake;
      Parameters.ParamByName('Duration').Value := Time;
      Parameters.ParamByName('ExLength').Value := Length(RichEdit1.Text);
      Parameters.ParamByName('MostFastFinger').Value := DetectFL_Finger('Fast');
      Parameters.ParamByName('MostSlowFinger').Value := DetectFL_Finger('Slow');
 
      if Mode = tmClassWork then
      begin
        Parameters.ParamByName('IsClassWork').Value := True;
        Parameters.ParamByName('Mark').Value := fClassWork.Marks(Trunc(Speed * 60));
      end;
 
      if (Mode = tmClassWork) or (Mode = tmDiagnostic) then
        Parameters.ParamByName('isLevel').Value := Level;
 
      ExecSQL;
    end;
 
    if (Mode = tmClassWork) or (Mode = tmDiagnostic) then
    begin
      DM.SelQuery('SELECT IsFirstDiag FROM Users WHERE ID = :p1', [fAut.User_ID]);
 
      if DM.ADOQuery1.FieldByName('IsFirstDiag').AsBoolean = False then
      begin
        With DM.ADOQuery1 do
        begin
          Close;
          SQL.Clear;
          SQL.Add('UPDATE Users SET IsFirstDiag = :p1 WHERE ID = :p2');
          Parameters.ParamByName('p1').Value := True;
          Parameters.ParamByName('p2').Value := fAut.User_ID;
          ExecSQL;
        end;
      end;
    end;
 
    DM.ADOConnection1.CommitTrans;
    MyForm.Close;
    FreeAndNil(MyForm);
  except
    DM.ADOConnection1.RollbackTrans;
    ShowMessage('Ошибка сохранения');
  end;