我的Class：

TOrgNode = class; //前置聲明

TOrgNodeList = class(TObjectList) //從TObjectList繼承的一個對象列表继承的一个对象列表类
private
function GetItems(Index: Integer): TOrgNode;
procedure SetItems(Index: Integer; const Value: TOrgNode);
public
property Items[Index: Integer]: TOrgNode read GetItems write SetItems;
end;

TOrgNode = class(TObject)
private
FName: string;
FSubOrgNodeList: TorgNodeList;
public
constructor Create;
destructor Destroy; override;
property Name: string read FName write FName;//唯一標識
property SubOrgNodeList: TorgNodeList read FSubOrgNodeList; //一個子列表
end;

Var
orgNodeList: TOrgNodeList;

如何用一個遞歸（遞迴）或其它算法函數，快速從orgNodeList中，查找到指定name的TOrgNode對象呢？