Delphi - Transacciones FireBird

Alguien puede decirme la manera correcta de iniciar y cerrar una transaccion en Interbase Firebird.. ?


Yo lo hago de esta manera, pero no estoy seguro si es la correcta.

procedure GuardarOActualizar(Sender : TOBJECT);
begin

if( IBTransaction1.Active) then
begin
IBTransaction1.active := false;
if (not IBTransaction1.InTransAction) then
begin
IBTransaction1.StartTransAction;
end;
end;

............. QueryParaGuardar o Actualizar;

IBTransaction1.commit;
RefreshQuery( MD.ibqGRID ); <------procedimiento volver a mostrar los datos de un grid.

end;

cualquier sugerencia/Comentario se agradece de antemano....