Es würde ja schon reichen, Datenmodul wegzulassen. Self ist ja das Datenmodul, welches der Variable Datenmodul nach dem Create zugewiesen wird.
Delphi-Quellcode:
for i := 0 to ComponentCount - 1 do
begin
if Components[i] is TIBQuery then
begin
AQuery := TIBQuery(Components[i]);
if Aquery.Transaction.InTransaction then
AQuery.Transaction.Commit;
end;
end;