Controlar TIBBackupService

[Angel.Matilla]

Estoy haciendo la copia de seguridad de una BB.DD. en Firebird con este código:

Backup->LoginPrompt = false;
Backup->Params->Add("user_name=sysdba");
Backup->Params->Add("password=masterkey");
Backup->Verbose = true;
Backup->Active  = true;

try
{
     Backup->DatabaseName = fPersona->Afiliados->DatabaseName;
     Backup->BackupFile->Add(cInicio + "\\" + Now().FormatString("yyyymmdhhnnss") + ".gbk");
     Query->Transaction->Active = true;
     Query->Transaction->Commit();
     Backup->ServiceStart();

     while (!Backup->Eof)
          cAux = Backup->GetNextLine();
}

__finally
{
     Backup->Active = false;
}

La pregunta tal vez sea una tontería pero: ¿Cómo puedo saber cuantos elementos tienen que copiarse? Lo digo por poner una barra de progreso para que no parezca que el sistema se ha quedado muerto.