: 위 함수 호출시 commit 까지 호출하는 법 있을까요?

: function Delete_List(jpkey : String) : boolean;
: var
:     qryStrings : TStringList;
: begin
:     qryStrings := TStringList.Create;
:     result     := false;
:     try
:         qryStrings.add('execute procedure proc_Delete(' + jpkey + ')');
:         if not ExecSql(qryStrings) then begin
:             exit;
:         end;
:         result  := true;
:     finally
:         FreeAndNil(qryStrings);
:     end;
: end;
:
:
: function Add_ReCal(Itemcode  : string) : boolean;
: var
:     qryStrings : TStringList;
: begin
:     qryStrings := TStringList.Create;
:     result     := false;
:     try
:
:         qryStrings.add('execute procedure PROC_RECAL_ITEMKEY(' + Itemcode + ')');  
:         if not ExecSql(qryStrings) then begin
:             exit;
:         end;
:         result  := true;
:     finally
:         FreeAndNil(qryStrings);
:     end;
: end;

if Datamd.IBTransaction1.inTransaction then Datamd.IBTransaction1.rollback;
Datamd.IBTransaction1.StartTransaction;
try
   함수 태우기..
   Datamd.IBTransaction1.commit;
except
   Datamd.IBTransaction1.rollback;
end;

이러면 되지 않을까요?