procedure TForm1.btnOBEX_GotoParentClick(Sender: TObject);
var
  frmProgress: TfrmProgress;
begin
  Screen.Cursor:= crHOurGlass;
  frmProgress:= TfrmProgress.Create(Self);
  //frmProgress.AdvProgressBar1.Infinite:= true;
  //frmProgress.AdvProgressBar1.Animated:= true;
  //frmProgress.AdvProgressBar1.ShowPercentage:= false;
  //frmProgress.AdvProgressBar1.ShowPosition:= false;
  frmProgress.GradientLabel1.Caption:= 'Обновляю список файлов.';
  frmProgress.GradientLabel2.Visible:= false;
  frmProgress.AdvProgressBar2.Visible:= false;

    if OBEXShowProgress=1 then frmProgress.Show;
  Application.ProcessMessages;
  try
    frmOBEXFM.OBEX_GoTo_Parent;
  finally
    Screen.Cursor:= crDefault;
    frmProgress.Free;
  end;
end;