Rotina para Backup/Restore de Banco Firebird

procedure TForm1.Button1Click(Sender: TObject);
begin
 with IBBackupService1 do
  begin
    ServerName := ´192.168.0.2´;
    LoginPrompt := False;
    Params.Add(´user_name=sysdba´);
    Params.Add(´password=teste´);
    Active := True;
    try
      Verbose := True;
      Options := [NonTransportable, IgnoreLimbo];
      DatabaseName := ´/projetos/data.gdb´;
      BackupFile.Add(´c:\back\data.gbk´);

      ServiceStart;
      While not Eof do
        Memo1.Lines.Add(GetNextLine);
    finally
      Active := False;
    end;
  end;
 showmessage(´ok´);
end;