[Lazarus-es] firebird: respaldar desde el programa

[Paola Bruccoleri]

Hola a todos..

Tengo implementado esto:

       sNombre:= 'Datos_'+FormatDateTime('ddmmyyyy', Date)+ '.fbk';
       sLog:= 'Log_'+ FormatDateTime('ddmmyyyy', Date)+ '.log';
       sBack:= ExtractFilePath(Application.ExeName)+'gbak.exe';
       sPara:= '-v -t -user SYSDBA -password masterkey -y 
'+Principal.cPathDB+sLog+ ' '+ Principal.cPathDB + Principal.cFileDB + ' 
'+ sDestino + sNombre;

       If FileExists(sDestino+sNombre) then
          MessageDlg('Aviso', 'Respaldo ya realizado', mtWarning, [mbOk], 0)
       else
         begin
           if ShellExecute (0,'open',PChar(sBack),PChar(sPara),nil, 
SW_HIDE) <= 32 then
             MessageDlg('Aviso', 'No se pudo realizar el respaldo', 
mtWarning, [mbOk], 0)
           else
             MessageDlg('Aviso', 'Respaldo realizado', mtWarning, 
[mbOk], 0);
           end;


que hasta hace pocos días me funcionaba ok... pero ahora, luego de unos 
cambios en la conexion a la bd, me dejó de andar.
Sale el mensaje "respaldo realizado" pero oviamente el archivo no está.
Antes tenia la conexión con autocommit = false y ahora la tengo en true 
(uso ZEOS).
No veo que otro cambio haya tenido que ver....

O sino, de qué otra forma? usando quizás algún componente?
muchas gracias