¿Compactar una bd tipo Firebird?

[[FGarcia]]

Simplificando parte del codigo que colocaste en tu aplicacion de respaldar y restaurar una BD firebird

Código Delphi [-]
with IBBkpService do
   begin
    DatabaseName := 'string';
    BackUpFile.add('string');
    Protocol := Local;
    Params.Add('UserName=' + 'string');
    Params.Add('Password=' + 'string');
    Active := True;
    Memo1.Lines.Add('********** INICIANDO RESPALDO **********');
      while not eof do
        begin
         Memo1.Lines.Add(GetNextLine);
        end;
Active:= False;
      Memo1.Lines.Add('********** RESPALDO FINALIZADO **********');
    end;

Si no coloco el Memo en la aplicacion ¿como se que ya termino de respaldar ?