Commit Work??

[anam.soria]

Es una procedure de la base de datos, lo que quiero hacer, es entre select y select del procedure un commit, no desde el programa en delphi.
Ej:
for Select xx
from yy
into :l, :j
do begin
.
.
.
End

Commit

Select xxx
from bb

Etc