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;
