TÉMA:

procedure SQLQueryAfterClose(DataSet: TDataSet);
begin
  SQLTransaction.Active := False;
  // vagy:
  // SQLTransaction.EndTransaction;  // -> Rollback
  // vagy:
  // SQLTransaction.Commit;
end;

SQLQuery.Open;
// ... adatolvasás... stb.
SQLQuery.Close;
// tranzakcióban is marad

SQLQuery.Close;
SQLTransaction.Active := False;
// vagy:
// SQLTransaction.EndTransaction;

DM.SQLTranaction.StartTransaction;

SQLTransaction.Action:=caCommit; // vagy caCommitRetaining

Program ShowData;
 
function CreateQuery(pConnection: TIBConnection; pTransaction: TSQLTransaction): TSQLQuery;
begin
  result := TSQLQuery.Create;
  result.Database := pConnection;
  result.Transaction := pTransaction
end;
 
var 
  AConnection  : TSQLConnection;
  ATransaction : TSQLTransaction;
  Query        : TSQLQuery;
 
begin
  AConnection := CreateConnection;
  ATransaction := CreateTransaction(AConnection);
  Query := CreateQuery(AConnection, ATransaction);
  Query.SQL.Text := 'select * from tblNames';
  AConnection.Open;
  Query.Open;
  while not Query.Eof do
  begin
    Writeln('ID: ', Query.FieldByName('ID').AsInteger, 'Name: ' +
                                  Query.FieldByName('Name').AsString);
    Query.Next;
  end;
  Query.Close;
  AConnection.Close;
  Query.Free;
  ATransaction.Free;
  AConnection.Free;
end.

procedure TmainForm.FormCreate(Sender: TObject);
begin
  // catch exceptions
  Application.OnException := @CustomExceptionHandler;
...
 
procedure TmainForm.CustomExceptionHandler(Sender: TObject; E: Exception);
begin
  ...
  Screen.Cursor:=crDefault;
  ShowMessage( 'A futás közben egy kivétel keletkezett:' + ENTER + E.Message );
 	ErrorLog( E.Message, Now, GetEnvironmentVariable('USERNAME') );
  ...
end;