¿Compactar una bd tipo Firebird?

[[FGarcia]]

Pues sigo en esto, no se me ha olvidado ni lo he resuelto.

Despues de revisar un error en la sintaxis y colocando el memo para visualizar el error se mantiene.

Código Delphi [-]
with IBBkpService do
   begin    DatabaseName := NombreDB;
   BackUpFile.add(CrearNombreDiario(NombreDB));
   Protocol := Local;    
   Params.Add('User_Name=' + 'sysdba'); //Faltaba el guion bajo    
   Params.Add('Password=' + 'masterkey');    
   Active := True;    
   ServiceStart; //No iniciaba el servicio    
   Memo1.Lines.Add('********** INICIANDO RESPALDO **********');    
   while not eof do      
     begin        
        Memo1.Lines.Add(GetNextLine);      
     end;      
   Active:= False;    
   Memo1.Lines.Add('*******RESPALDO TERMINADO*********');    
end;

EL mensaje de horror: 'SPB Constant Unknown'

Lo curioso del asunto es que en la aplicacion original de sensei egostar todo funciona correctamente.