Código Delphi [-]
WinExec(PChar('C:\Program Files\Firebird\Firebird_2_0\bin\gbak.exe -v -t -user SYSDBA -password "masterkey" '+lbl3.Caption+' '+edtruta.Text),SW_NORMAL);

Código Delphi [-]
procedure TForm24.BitBtn1Click(Sender: TObject);
var PathDestino, Origen, aPath, Destino, my_mensaje : string;
sr: TSearchRec;// para definir el tipo de busqueda
begin
my_mensaje:='Y se han guardado en la siguiente ubicación.'+#13;
PathDestino := ShellTreeView1.SelectedFolder.PathName+'\[ Respaldo Base de Datos Sistema Caja ]'; //creamos el nombre de mi carpeta y concatenamos al directorio
if not DirectoryExists(PathDestino) then // verifica que no exista una carpeta con el nombre Respaldo al directorio destino
   begin
   aPath := 'C:\sistema_caja\base de datos\';//asignamos el origen de mis tablas
   if FindFirst(aPath + '*.db', faAnyFile, sr) = 0 Then  //busca el primer archivo .db o cualquiera
   repeat
   CreateDir(PathDestino); //Creamos el directorio ...................
   Origen := aPath+sr.Name;//directorio origen o path
   Destino :=  PathDestino+'\'+ sr.Name; //aqui agregamos las tablas a la carpeta
   CopyFile(PChar(Origen), PChar(Destino), False);// copiamos de mi origen al destino
   until FindNext(sr) <> 0;// hacer todo el recorrido hasta encontrar mi archivo
   SysUtils.FindClose(sr);//cerramos la busqueda del archivo
   Application.MessageBox('Las bases de datos se han respaldado ! ! ! ','Información',MB_ICONINFORMATION);
   MessageDlg( my_mensaje + ShellTreeView1.SelectedFolder.PathName + '\[ Respaldo Base de Datos Sistema Caja ]',mtInformation,[mbOK],0);
   end
   else
   begin
   Application.MessageBox('La carpeta ya existe.','Error',MB_ICONERROR);
   Application.MessageBox('Por el momento no es necesario respaldar en esta ubicación ! ! !','Suerte',MB_ICONINFORMATION);
   end;
end;

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;

Código Delphi [-]
if dlgSave1.Execute then
begin
  edtRuta.Text:=dlgSave1.FileName;
end;