请问一个生成ttreenodes的有关问题

请教一个生成ttreenodes的问题
有张表结构如下：

id，pid，data三个字段

现在想把它的内容提取出来放到一个TTreeNodes对象里

不知该怎么做？

[解决办法]
TFieldInfo = record
id : Integer;
pid : Integer;
Data : string;
end;
pFieldInfo = ^TFieldInfo;

*****************
TempField : pFieldInfo;
new(TempField);
....
.....
....
TTreeNodes.data :=pointer(TempField);