Пишем Живой Поиск В Listbox (delphi)

[Lomanu4]

procedure TForm1.Edit1Change(Sender: TObject);
var
   i : Integer;
   edit:tedit;
begin
   Edit := Sender as TEdit;
   if Edit.Text <> '' then
      for i := 0 to ListBox1.Items.Count - 1 do
      begin
         if Pos('Коментарий: ' + Edit.Text, ListBox1.Items[i]) > 0 then
         begin
            ListBox1.ItemIndex := i;
            Break;
         end;
      end;
end;