1.设置图片如下：

设置默认值：

if Trim(FQuery.fieldByName('cPersonCategory').AsString) = '' then
begin
CNode.Values[PersoncPersonCategory.ItemIndex] := '07';
end
else
begin
CNode.Values[PersoncPersonCategory.ItemIndex] := Trim(FQuery.fieldByName('cPersonCategory').AsString);
end;

取值：

if Trim(ANode.Texts[PersoncPersonCategory.ItemIndex]) = '' then
FLedgerExOutPzPersonSet.cPersonCategory := ''
else
FLedgerExOutPzPersonSet.cPersonCategory := ANode.Values[PersoncPersonCategory.ItemIndex];

Texts ： 显示的属性  ANode.Texts[PersoncPersonCategory.ItemIndex]

Values：隐藏的值  ANode.Values[PersoncPersonCategory.ItemIndex]。

现在知道怎么用了吧。希望能帮住更多的人。