Partiendo del hecho que lo quieres hacer usando los componentes IB podria ser asi:
Código Delphi
[-]
try
IBBackupService1.Active := true;
IBBackupService1.Options := [IgnoreLimbo]+[NoGarbageCollection]+[NonTransportable];
IBBackupService1.BackupFile.Clear;
IBBackupService1.BackupFile.Text:=edtRuta.Text;
IBBackupService1.BackupFile.Create;
IBBackupService1.ServiceStart;
while not IBBackupService1.Eof do
begin
s := IBBackupService1.GetNextLine;
end;
finally
ShowMessage('Copia de seguridad realizada con exito');
end;
La unica desventaja es que solo puedes escoger rutas que esten en el servidor, ya que el servicio no puede transportar el archivo automaticamente a otra pc si lo estas haciendo desde en equipo remoto.
a diferencia de la otra opcion que te habia enviado con el gbak.
edtRuta.Text es un t edit que lo debes llenar con un Save dialog que llamas desde un boton con el siguiente codigo:
Código Delphi
[-]
if dlgSave1.Execute then
begin
edtRuta.Text:=dlgSave1.FileName;
end;
en el save dialog debes configurar las siguientes propiedades:
DefaultExt=*.fbk
Filter=FireBird Backup (*.fbk)|*.fbk
Saludos