关于treeview中gotobookmark的问题请教，急。。。

Question

做一个树形分类，treeview点击代码如下，前台界面一点击就出现参数不正确的错误提示，烦请各位大侠给予指导（dephi2010），急。。。。
procedure TFrmmaterialsort.TreeView1Change(Sender: TObject;
Node: TTreeNode);
begin
with dtmdlmaterial do
begin
relatedele;
if node.Level=1 then
begin
sortonerelate;
atsortone.GotoBookmark(node.Data);
end
else
if node.Level=2 then
begin
sorttworelate;
atsorttwo.GotoBookmark(node.Data);
end
else
if node.Level=3 then
begin
sortthreerelate;
atsortthree.GotoBookmark(node.data);
end
else
if node.Level=4 then
begin
sortfourrelate;
atsortfour.GotoBookmark(node.data);
end;
end;
end;