Delphi中的递归函数是否有误，怎么是死循环

procedure TForm1.FindLeechDom(LeechDomname:String; Node:TTreeNode);
var
SQLStr:String;
Node1:TTreeNode;
begin
SQLStr:='Select * from BaseFlow where MES_ModelCode=:value ';
ADOFind.Close;
ADOFind.SQL.Clear;
ADOFind.SQL.Add(SQLStr);
ADOFind.Parameters.ParamByName('value').Value:=LeechDomname;
ADOFind.Open;
while not ADOFind.Eof do
begin
Node1:=TreeView1.Items.AddChild(Node,ADOFind.fieldByname('MES_ModelCode').AsString) ;
FindLeechDom(ADOFind.fieldByname('MES_ModelCode').AsString,Node1);
ADOFind.Next;
end;
end;

写东西都自己不查一下程序。
Node在什么地方初始化了。程序能知道吗?