In Listbox eine String direkt markieren ... ?

[Torpedo]

Delphi-Quellcode:

for i := 0 to listbox.items.count-1 do
  if listbox1.items.strings[i] = 'Klaus' then 
  begin
    listbox1.Itemindex := i;
    Exit;
  end;