items suchen in TreeView

[Micha]

Etwa so in der Art?

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
 i : integer;
begin
TreeView1.Visible := true;
 for i := 0 to TreeView1.Items.Count -1 do
 begin
  if i = 2 then // aber wie bringe ich hier einen String 
                //z. B. aus einem Edit unter? 
   begin
    ShowMessage('Suchwert gefunden!');
   end;
 end;
end;