[Erilar]

Код:

var
  i: integer;
  Find: string;
begin
  Find := Edit.text;
  for i := 0 to LBox.Items.Count - 1 do
    if Pos(Find, LBox.Items.Strings[i]) <> 0
      then then LBox.ItemIndex:=i;