IterateSubtree Suche in VST

[youuu]

Hi,

ich suche im Vst so

Delphi-Quellcode:

Procedure TFormMain.SucheCallback(Sender: TBaseVirtualTree; Node: PVirtualNode; data: Pointer; var Abort: Boolean);
Begin
  Customer:= TCustomerDaten(VstCustomer.GetNodeData(Node)^);
  VstCustomer.IsVisible[Node]:= (EditSearch.Text = '') or (pos(EditSearch.Text, Customer.company_name)>0);
End;


procedure TFormMain.EditSearchChange(Sender: TObject);
begin
  VstCustomer.IterateSubtree(nil, SucheCallback, nil)
end;

Nur habe ich ein Problem nicht alle werden gefunden.

Beispiel:

Ich gebe "T" ein er findet "Tierarztpraxis" logisch
gebe ich nun "Ti" oder "Tier" findet er es schon nicht mehr, wie kann das sein?