items suchen in TreeView

[Micha]

Noch ein Zusatz:

Ich möchte nicht nur komplette Items durchsuchen, sondern es sollen auch teile eines Items gefunden werden.

D.h., wenn ich in das Edit "auto" eingebe, dann soll er auch die Punkte wie "Automarke", "blaues Auto" finden und markieren.

Müsste irgendwie in die Richtung gehen oder?

Delphi-Quellcode:

 for i:= 1 to length(edt_suchen.text) do
 begin
  if edt_suchen.text[i] = node.text then
  treeview1.canvas.font.Color :=clred;
 end;

Kann mir da bitte noch jemand helfen?