procedure TfrmP2K_MyMenu.FillList2(AWebShortcuts : TArrWebShortcuts);
var
  i, j: integer;
  xItem: TListItem;
  tmp: string;
begin
  spSkinListView2.Items.Clear;

  for i:= 0 to High(AWebShortcuts) do
    begin
      if AWebShortcuts[i].Visible = $11 then
      begin
        xItem:= spSkinListView2.Items.Add;
        xItem.ImageIndex:= -1;
        //xItem.Caption:= inttostr(convert_dword(AWebShortcuts[i].Index));
        tmp:= '';
        for j:= 0 to 51 do tmp:= tmp + inttohex(AWebShortcuts[i].Name[j], 2);
        tmp:= UCS2ACSI(tmp, true);
        xItem.SubItems.Add(tmp);
        xItem.SubItems.Add(AWebShortcuts[i].Url);
        tmp:= '';
        if AWebShortcuts[i].AllowDelete = 1
          then xItem.ImageIndex:= 1 ;
        xItem.Data:= Pointer(i);
      end;
    end;
end;