[EvilRussian]

Добрый день, помогите ещё вот с чем.

Есть TreeView, который я динамически заполняю следующей процедурой:

Код:

procedure AddTree(nod:TTreeNode; s:string);
var ID: integer;
    prefix: string;
begin
ID := Pos('\', s);
if ID > 0 then
begin
 prefix := Copy(s,0,ID-1);
 delete(s,0,ID-1);
 nod := FindNodeWithText(nod, prefix);   //Ищем: есть ли уже такой элемент?
 if nod = nil then
 begin
  nod := TreeView1.Items.AddChild(nod, prefix);
  AddTree(nod,s)
 end
end else
 nod := TreeView1.Items.AddChild(nod, s);
end;

Следовательно, мне нужно находить, есть ли в дочерних элементах этой ноды "nod" элемент "prefix". Как можно сделать это? Пробовал перебор а-ля TStringList, но совершенно не понимаю, как его реализовать:

Код:

function FindNodeWithText(nod:TTreeNode; find:string): TTreeNode;
var i:integer;
begin
Result:=nil;
for i:=0 to nod.??? do   //Как узнать количество детей?
begin
 if nod.Item[i].Text=find then   //Это название?
 begin
  Result:=nod.Item[i].???;  //Как задать определённое дитя как результат?
  break
 end;
end;
end;

Помогите, пожалуйста, кто-нибудь советом по реализации, а лучше - кодом. Очень важна эффективность кода, потому что придётся прогонять через это очень большие деревья, не меньше тысячи элементов. Кроме того, как в TreeView разделяются, так сказать, "папки" и "записи"? Это разные элементы или один и тот же?