Jo, du mußt alle Entries einzeln vergleichen, in etwa so:
Delphi-Quellcode:
entries.items.ItemIndex := -1;
for i:=0 to entries.items.count-1 do
begin
// Länge prüfen
if Length(entries.items[i]) < Length(Edit_schnellzugriff.Text)) then
continue;
// Textanfang vergleichen (todo: klappt das auch case-insensitive?)
if Edit_schnellzugriff.Text = Copy( entries.items[i], 1, Length(Edit_schnellzugriff.Text) ) then
begin
entries.items.ItemIndex := i;
break; // Nicht sinnlos weitersuchen
end;
end;