额的神呀，这个代段在XE2的FireMonkey中怎么会无效了？

var item: TTreeViewItem;
    pData: PTreeData;
begin
  //读取
  try 
    with frmdata.SQLQuery do begin
      close;
      sql.Clear;
      sql.Add('select * from area where parent_id is null');
      open;
      first;
      while not eof do begin
        New(pData);
        pData^.id := FieldByName('id').AsString;
        pData^.name := FieldByName('name').AsString;  
        item := TTreeViewItem.Create(Self);
        item.Parent := areaTree;
        item.Data := pData;
        item.Text := FieldByName('name').AsString;
        next;
      end;
    end; 
  except on E:Exception do 
    ShowMessage(e.Message);
  end;  而且还发现reaTree.Selected.ChildrenCount会是2 我怎么查来查去，看来看去，没有子键的么，怎么会有子键数量为2.这个FireMonkey是不是不成熟的？