IBX + delphi7 + Implementacion profesional de Backup

[gorsan]

Hola a todos.
Ya tengo practicamente acabada mi nueva aplicacion pero para finalizar necesito que determinado usuario pueda realizar copias de seguridad de toda la base de datos IBX. He estado mirando en la ayuda de D7 y he encontrado lo siguiente:

Código Delphi [-]
procedure TForm1.Button2Click(Sender: TObject);
begin
  with IBBackupService1 do
  begin
    ServerName := 'Poulet';
    LoginPrompt := False;
    Params.Add('user_name=sysdba');
    Params.Add('password=masterkey');
    Active := True;
    try
      Verbose := True;
      Options := [MetadataOnly, NoGarbageCollection];
      DatabaseName := 'c:\interbase\examples\database\employee.gdb';
      BackupFile.Add('c:\temp\e1.gbk = 2048');
      BackupFile.Add('c:\temp\e2.gbk' = 4096);
      BackupFile.Add('c:\temp\e3.gbk'); ServiceStart;
      While not Eof do
        Memo1.Lines.Add(GetNextLine);
    finally
      Active := False;
    end;
  end;
end;

Se realiza con un componente llamado IBBackupService que viene integrado en Delphi 7. Pero no me gusta la implementacion. ¿Alguien me puede echar un cable? Muchas gracias.