Progressbar no Backup

[david artes 0]

Olá amigos, no meu backup eu preciso colocar um progressbar mais não to conseguindo configurar, eu ja uso o um memo e preciso do progressbar, alguém pode me ajudar?

 

procedure TForm1.Button1Click(Sender: TObject);
begin
with IBBackupService1 do
  begin
    ServerName := 'localhost';
    LoginPrompt := False;
    Params.Clear;
    Params.Add('user_name=sysdba');
    Params.Add('password=masterkey');
    Protocol := TCP;
    Active := True;
    try
      Verbose := True;
      Options := [NonTransportable, IgnoreLimbo];
      DatabaseName := '127.0.0.1:D:\Opit.FDB';
      BackupFile.Clear;
      BackupFile.Add('D:\XX.FBK');
      ServiceStart;
      While not Eof do
        Memo1.Lines.Add(IBBackupService1.GetNextLine);
    finally
      Active := False;
    end;
  end;
end;

[bdexterholland 0]

Desconheço o IBBackupService, mas acredito que seria apenas uma pequena alteração:

 

procedure TForm1.Button1Click(Sender: TObject);
begin
with IBBackupService1 do
  begin
    ServerName := 'localhost';
    LoginPrompt := False;
    Params.Clear;
    Params.Add('user_name=sysdba');
    Params.Add('password=masterkey');
    Protocol := TCP;
    Active := True;
    try
      ProgressBar1.Min := 0;
      //ProgressBar1.Max := 1; //Colocar aqui o total de linhas que será feito o backup
      Verbose := True;
      Options := [NonTransportable, IgnoreLimbo];
      DatabaseName := '127.0.0.1:D:\Opit.FDB';
      BackupFile.Clear;
      BackupFile.Add('D:\XX.FBK');
      ServiceStart;
      While not Eof do
        begin
          Memo1.Lines.Add(IBBackupService1.GetNextLine);
          ProgressBar1.StepIt;
        end;
    finally
      Active := False;
    end;
  end;
end;