procedure TfrmP2K_MyMenu.WebShortcuts_applyChanges(AWebShortcuts : TArrWebShortcuts2);
var
  i: integer;
  f: file of TWebShortcuts2;
  str: string;
  frmProgress: TfrmProgress;
  cnt: integer;

begin
  // сохранить буфер в файл
  cnt:= 0;
  frmProgress:= TfrmProgress.Create(Self);
  try
    str:= GetTempPathEx + 'DL_DB_BKMR_RECORDS';
    if FileExists(str) then DeleteFile(str);
    AssignFile(f, str);
    Rewrite(f);
    for i:= 0 to High(AWebShortcuts) do
      begin
        if (AWebShortcuts[i].Visible <> $00) //and
           //(AWebShortcuts[i].AllowDelete <> $00) and
           //(AWebShortcuts[i].x2 <> $00) and
           //(AWebShortcuts[i].xType <> $00)
           then
             begin Write(f, AWebShortcuts[i]); inc(cnt); end;
      end;
    CloseFile(f);
    //записать файл в телефон
    if cnt = 0 then p2k.DeleteFile('/a/DL_DB_BKMR_RECORDS')
               else p2k.UploadFile(str, '/a/DL_DB_BKMR_RECORDS', frmProgress);
  finally
    frmProgress.Free;
  end;
end;