procedure TForm1.btnOBEX_RefreshClick(Sender: TObject);
var
  frmProgress: TfrmProgress;
begin
  Screen.Cursor:= crHOurGlass;
  frmProgress:= TfrmProgress.Create(Self);
  frmProgress.AdvProgressBar1.MaxValue:= 1;
  //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
    //p:= gettickcount;
    frmOBEXFM.GetFolderContent;
    //n:= gettickcount;
    //ShowMessage( IntToStr(n-p) + '     ' + IntToStr((n-p) div (1000)) + '.' +IntToStr((n-p) mod 1000) + ' sec');
    btnOBEX_Download.Enabled:= true;
    btnOBEX_Upload.Enabled:= true;
    btnOBEX_Delete.Enabled:= true;
  finally
    Screen.Cursor:= crDefault;
    frmProgress.Free;
  end;
end;