ListView - Suche sehr langsam

[Dash]

Danke, aber an der Geschwindigkeit hat sich leider nicht viel geändert

Delphi-Quellcode:

procedure TForm1.LabeledEdit1Change(Sender: TObject);
var
  i: Integer;
  s: String;
begin
  s := ansiuppercase(LabeledEdit1.Text);
  for i := 0 to ListView1.Items.Count - 1 do
  begin
    if pos(s, ansiuppercase(ListView1.Items[i].SubItems.Text)) <> 0 then
    begin
      ListView1.HideSelection := False;
      ListView1.ItemIndex := i;
    end;
  end;
end;