ListBox Suche ergänzen?

[AlexII]

Hab das jetzt so:

Delphi-Quellcode:

procedure TForm1.SearchEditChange(Sender: TObject);
var i, u: Integer;
begin

for u:=0 to ListBox1.Items.Count-1 do   //hier muss ich die Liste unselectiert machen
begin
ListBox1.Selected[u]:=False;
end;

for i:=0 to ListBox1.Items.Count-1 do
begin
  ListBox1.MultiSelect:=True;
  if Pos(SearchEdit.Text, AnsiLowerCase(ListBox1.Items[i])) <> 0 then ListBox1.Selected[i]:=True;
end;

SearchEdit.Hint:='';

end;

procedure TForm1.SearchEditMouseMove(Sender: TObject; Shift: TShiftState;
  X, Y: Integer);
begin
if ListBox1.SelCount>0 then
SearchEdit.Hint:=IntToStr(ListBox1.SelCount) + ' ' + _('hits') else SearchEdit.Hint:=_('Nothing found');
end;