ação é bastante simples, pois usaremos a classe TIBBackupService da unit IBServices para gerar a cópia do banco de dados, conforme a Listagem 1, no método FazBackup.
Listagem 1. Código do método FazBackup
with TIBBackupService.Create(Self) do
begin
ServerName := 'Servidor';
{ Nome do Servidor }
Protocol := Local;
LoginPrompt := False;
Params.Clear;
...