Hilfe mit einer ListBox und einem Edit programmieren

[Nils_13]

Ich benutze deinen.

Delphi-Quellcode:

for i:=0 to searchbox.items.count-1 do begin
     if pos(lowercase(searchedit.text),lowercase(searchbox.items[i]))<>0 then begin
       searchbox.ItemIndex:=i;
       break;
     end;
  end;