Foros Club Delphi - StartTransaction Genera Error En Unigui

Buenos Dias Foristas

Requiero efectuar control de compromiso para actualizar unas tablas Firebird usando unigui
uso el siguiente codigo

Código:

  INWHSREUBICA2.ParamByName('P_DOCNUMERO').AsString  := P_DOCNUMERO;

  INWHSREUBICA2.ParamByName('P_DOCFECHA').AsDate     := P_DOCFECHA;

  INWHSREUBICA2.ParamByName('P_IDINSALDO').AsInteger := P_IDINSALDO;

  INWHSREUBICA2.ParamByName('P_INCODTRA').AsString   := P_INCODTRA;

  INWHSREUBICA2.ParamByName('P_QTY').AsFloat         := P_QTY;

  INWHSREUBICA2.ParamByName('P_WHSLOC_TO').AsString  := P_WHSLOC_TO;



    

  Database1.StartTransaction;

 try

   INWHSREUBICA2.ExecProc;

   Database1.commit;

  except  

    Database1.Rollback ;

  end;

y al indicar Database1.StartTransaction genera el error que no se puede efectuar esta operacion en una base de datos cerrada

Ahora si no utilizo StartTransaction los cambios que envio se realizan, pero requiero la transaccion ya que son varias las tablas que voy a camiar en el procedimiento

Cual es la forma correcta de iniciar la transaccion con unigui?
Utilizo el data modulo de unigui

Utilizo firebird 2.1 , delphi xe2 professional , componentes sql-direct para conectame a la base de datos

Gracias por su apoyo