I forgot to mention :

this that the code actually reads :

procedure TFormCapture.trClientBeforeCommit(Sender: TIB_Transaction);
begin
try
qryAcc.PostRetaining;
except on e: Exception do
begin
MessageDlg('Error ' + #13 + #10 + e.Message, mtWarning, [mbOK], 0);
end;
end;
end;

It then locks up here :

procedure TIB_Transaction.Commit;
begin
if Started or InTransaction or TransactionIsActive then
try
BeginBusy( false );
SysCommit( false );
finally
EndBusy; <<<<<<<<<<<<<<<<<<<<<<<<this is where it "LOOPS" Hangs
end
else
UpdateStatus;
end;