поиск по TreeView в Delphi

[TaYgA]

Всем доброго времени суток. Немогу сделать поиск по TreeView. Вот мой код:

  for i:=0 to TreeView.Items.Count-1 do
    if Pos(Edit.Text,TreeView.Items[i].Text)>0 then begin
      TreeView.Items.Item[i].Selected:=True;
      TreeView.SetFocus;
      break;
    end
      else  ShowMessage('Записей с таким именем не найдено!');

Если убрать вывод ошибки, то программа работает нормально, да вот только если нет записи в TreeView программа должна выводить ошибку... Если использовать мой код, то программа выводит ошибку независимо есть запись или нет. Как её исправить?!?!

[mihali4]

Например, так:

fnd:=False;
for i:=0 to TreeView.Items.Count-1 do
begin
    if Pos(Edit.Text,TreeView.Items[i].Text)>0 then 
    begin
      TreeView.Items.Item[i].Selected:=True;
      TreeView.SetFocus;
      fnd:=True;
      break;
    end;
end;
if not fnd then 
ShowMessage('Записей с таким именем не найдено!');

[TaYgA]

mihali4, а что такое переменная fnd и как её объявлять?!

[mihali4]

Дык... вроде ясно, что это булева переменная...
А поскольку используется она только в этой процедуре, то и объявлять ее нужно локально.

[TaYgA]

Спасибо, буду пробывать...