额的神呀，这个代段在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是不是不成熟的？

[解决办法]
其实count才是子节点的数量。不知道ChildrenCount是开什么的