TIBBackupService, cannot attach to service manager

Good day

I am trying to backup my database from Delphi, but I am getting the following error.
cannot attach to service manager.

I read in the help but I am not sure what service component I must add.

Thank you

Henry

var srvBackup : TIBBackupService;
    lOptions  : TBackupOptions;
begin
    srvBackup := TIBBackupService.Create(nil);
    srvBackup.Params.Clear;
    Memo1.Clear;
    Screen.Cursor := crHourGlass;
    try
       srvBackup.Active := true;
       srvBackup.Attach();
       lOptions := [];
 
       if srvBackup.Active = true then
       begin
 
          with srvBackup do
          begin
            ServerName  := 'localhost';
            LoginPrompt := False;
            Params.Add('user_name=sysdba');
            Params.Add('password=masterkey');
            BackupFile.Add('c:\Backup');
            DatabaseName := 'c:\Databases\Database.fd2';
            Verbose := true;
            ServiceStart;
            while not srvBackup.Eof do
            begin
             Application.ProcessMessages;
             Memo1.Lines.Add(srvBackup.GetNextLine)
            end;
          end;
       end;
 
    finally
      if srvBackup.Active then
        srvBackup.Detach();
        Screen.Cursor := crDefault;
    end;

Select allOpen in new window