Правильное использование IBTransaction

[Sparky]

Возник вопрос, до этого как-то не использовала этот компонент. Но стала замечать что после возникновения какой-нибудь критической ошибки данные которые записывались в БД исчезают. Насколько понимаю этот компонент решит эту проблему, а также позволит корректно использовать приложение в сети. Дак вот: насколько понимаю, изначально необходимо выставить active. В событии FormShow:

DataModule3.IBTransaction1.Active:=true;

Правильно?
и еще такой вопрос есть кнопка удаления, там должно быть вот так?

procedure TFormIstoch.ButtonDelClick(Sender: TObject);
begin
  inherited;
  if DataModule3.IBDataSet1.RecordCount>0 then
  begin
   if MessageBox(self.handle,'Вы действительно хотите удалить текущую запись?','Музыкальная школа на дому',MB_YESNO or MB_ICONQUESTION)=IDYES then
   begin
try
    DataModule3.IBDataSet1.Delete;
    DataModule3.IBTransaction1.CommitRetaining;
    DataModule3.IBDataSet1.Close;
    DataModule3.IBDataSet1.open;
    FormPar.DeleteComboBox(Formistoch.ComboBox1);
    FormPar.InsertComboBox(DataModule3.IBDataSet1,FormIstoch.ComboBox1,'name_istoch');
    DBGrid1.DataSource.DataSet.First;
except on e:EIBInterBaseError do
begin
  MessageBox(self.Handle,'Данный источниник информации используется, удаление невозможно','Музыкальная школа на дому',MB_OK or MB_ICONWARNING);
  DataModule3.IBTransaction1.RollbackRetaining;
end;
end;
   end;
  end
  else MessageBox(self.Handle,'В справочнике нет данных','Музыкальная школа на дому',MB_OK or MB_ICONWARNING);

end;