急！急！求BOM递归算法(100分)

谢谢各位。希望以后向各位多多学习。
我的BOM建立如下：
Function TFrmmaincoeerp02.AddTreeRecord(TreeView:TTreeView;RecordNodeRecordNode;appln_id,userid:string):TTreeNode;
var
ParentNode: TTreeNode;
begin
Result := GetRecordNode (TreeView,RecordNode);
if Result = nil then
begin 查找父节点
ParentNode := AddTreeRecord (TreeView,GetRecordParent(RecordNode,appln_id,userid));
Result := TreeView.Items.AddChildObject (
ParentNode,
RecordNode.Caption,
Pointer (RecordNode));
end;
end;

谢谢两位。以后请多多指教。

谢谢两位。以后请多多指教。richardho能否给我您的e_mail.
tks

吗啡， Richardho,
现在我正准备做一个BOM,请问BOM的表结构应该如何做最好。
此BOM用于主板之类的。 且同时有需要有替代料。

请给我一些意见。 多谢！
email : vigii@hotmail.com