Wyszukiwanie w ComboBox

Witajcie.
Jakim najszybszym sposobem jest wyszukiwanie tekstu w ComboBox?
Aplikacja ma sprawdzać czy pewne słowo wpisane w Edit znajduje się w ComboBox, jeśli tak to ma wykonać pewną operację i teraz moim problemem jest jak przeszukiwać to ComboBox, ComboBox jest ukryte - widoczne jest tylko gdy jest edytowana lista.

Jakim najszybszym sposobem jest wyszukiwanie tekstu w ComboBox?

Lines.IndexOf(x)<>-1 Tak wiem w google tego nie było, w pomocy też szukałeś i na 101% nic nie znalazłeś.

procedure TForm1.Edit1Change(Sender: TObject);
var
  i : integer;
  szukana, linie : string;
begin
  ComboBox1.ItemIndex := 0;
  for i:=0 to ComboBox1.Items.Count-1 do
  begin
    szukana := Edit1.Text;
    linie := Copy(ComboBox1.items.Strings[i], 1, Length(Edit1.Text));
    if linie = szukana then
    begin
      ComboBox1.ItemIndex := i;
      break;
    end;
  end;
end;