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

  Application.ProcessMessages;
  try
    frmOBEXFM.OBEX_GoTo_Root;
    btnOBEX_Download.Enabled:= true;
    btnOBEX_Upload.Enabled:= true;
    btnOBEX_Delete.Enabled:= true;
    btnOBEX_Refresh.Enabled:= true;
  finally
    Screen.Cursor:= crDefault;
    frmProgress.Free;
  end;
end;