[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 showmessage('Нашел!');