procedure TfrmP2KFileManager.ViewFileAttrs;
var
  i: integer;
  n: string;
  s: string;
  a: string;
  xItem: TListItem;
label lbl_00;  
begin
  if AdvListView1.Selected = nil then exit;
  xItem:= AdvListView1.Selected;
  n:= xItem.Caption;
  s:= inttostr(integer(xItem.Data));

  a:= xItem.SubItems[2];
  Label1.Caption:= Format('%s %s', [p2k_fm_ap02_str01, n]);
  Label2.Caption:= Format('%s %s', [p2k_fm_ap02_str02, s]);
  i:= strToint(a);
lbl_00:
  case i of
   0: begin
        cbReadOnly.Checked:= false;
        cbHidden.Checked:= false;
        cbSystem.Checked:= false;
      end;
   1: begin
        cbReadOnly.Checked:= true;
        cbHidden.Checked:= false;
        cbSystem.Checked:= false;
      end;
   2: begin
        cbReadOnly.Checked:= false;
        cbHidden.Checked:= true;
        cbSystem.Checked:= false;
      end;
   3: begin
        cbReadOnly.Checked:= true;
        cbHidden.Checked:= true;
        cbSystem.Checked:= false;
      end;
   4: begin
        cbReadOnly.Checked:= false;
        cbHidden.Checked:= false;
        cbSystem.Checked:= true;
      end;
   5: begin
        cbReadOnly.Checked:= true;
        cbHidden.Checked:= false;
        cbSystem.Checked:= true;
      end;
   6: begin
        cbReadOnly.Checked:= false;
        cbHidden.Checked:= true;
        cbSystem.Checked:= true;
      end;
   7: begin
        cbReadOnly.Checked:= true;
        cbHidden.Checked:= true;
        cbSystem.Checked:= true;
      end;
   else begin
          //i - 32, 71, 68, 70, 69
          a:= int2bin(i);
          Delete(a, 1, 4);
          i:= bin2int(a);
          goto lbl_00;
        end;
  end;
end;