[firebase-br] Backup no Delphi com FB 1.5?

[Zottis]

Sei que a lista não é de Delphi, mas não consigo resolver.
 Trabalho com o Delphi7 e FB 1.5 e estou com um problema.

Criei a rotina:
Fiz esta rotina mas não faz o backup.
Alguém poderia me ajudar?

Valeu.

PS ele traz a mensagem de Backup realizado com sucesso, mas não cria o 
arquivo de backup.

Procedure TPrincipal.FazerBackup;
var
  ini:TiniFile;
  CaminhoBackUp: string;
begin
  try
  DadosZce.BackUp.Active:= False;
    ini:=TiniFile.Create('C:\Arquivos de programas\Zottis\Config.zce');
        CaminhoBackUp := 
ini.ReadString('Backup','BackupPath',CaminhoBackup);
        DadosZce.BackUp.DatabaseName    := Dadoszce.IBDatabase.DatabaseName;
        DadosZce.Backup.BackupFile.Clear;
        DadosZce.Backup.BackupFile.Add(ChangeFileExt(CaminhoBackup + '\' + 
FormatDateTime('yyyymmddnnhh', now), '.zbk'));
        caminhofinal  :=  dadoszce.Backup.BackupFile.Text;
          ForceDirectories(CaminhoBackUp);
          DadosZce.Backup.Active := true;
          DadosZce.Backup.ServiceStart;
          DadosZce.Backup.Active := false;
          ini.free;
          MessageDlg('Backup realizado com sucesso', mtInformation, [mbOK], 
0);
          except
          MessageDlg('Falha ao realizar o Backup', mtError, [mbOK], 0);
          end;
end;

e chamo assim:

procedure TPrincipal.FormCloseQuery(Sender: TObject;
  var CanClose: Boolean);
begin
if autoiniciar1.Checked =true then
begin
MessageBeep(32);
if (MessageDlg(' Deseja Fazer o BackUp ?'+#13+#10+'(Altamente recomendável)' 
, mtConfirmation, [mbYes,mbNo], 0) = mrYes) then
begin
FazerBackup;
canclose:=True;
 application.Terminate;
end else
canclose:=True;
end else
canclose:=True;
end;