No puedo hacer restore de una bdd firebird en delphi

[Casimiro Noteví]

Te copio un trozo de código que puede que te sirva:
(ibR es el TIBRestoreService)

with ibR do
        begin
            if cProtocolo = 'Local' then
            begin
                ServerName := '';
                Protocol := Local;
            end
            else
            begin
                Protocol := TCP;
                ServerName := cServer;
            end;
            //
            LoginPrompt := False;
            Params.Add('user_name=SYSDBA');
            Params.Add('password=masterkey');
            Active := True;
            try
                Application.ProcessMessages;
                //
                Verbose := True;
                Options := [OneRelationAtATime,Replace,CreateNewDB];
                PageBuffers := 3000;
                PageSize := 8192;
                DatabaseName.Add( cBD_GDB );
                BackupFile.Add( cBD_GBK );
                ServiceStart;
                While not Eof do
                    mmVer.Lines.Add(GetNextLine);
            finally
                Active := False;
                //
                Application.ProcessMessages;
            end;
        end;