Delphi: Search as you type combobox -- 2

This project is to make a VCL control *like* TComboBox that will filter the results as you type, except based on the occurrence of the typed string *anywhere* in the item text, not just at the beginning. Similar to the "Combobox Dropdown" on this page ([login to view URL]) but as a native Delphi control. The control should have the option to bold the text for the search string portion for each of the items in the list. The control should have the option to store an integer with each item in the list. Using a public property [login to view URL] would allow setting and retrieving the current selected item. This is not a database aware control. The entire item list will be loaded into the control prior to use. Sample code: TFilterType = (ftBeginingOfString, ftAnywhereInString); TSearchCombo ... public property ItemID: integer read GetItemID write SetItemID; property ItemText: string read GetItemText write GetItemText; procedure AddItem(DisplayText: string; ItemID: integer = -1); published property FilterType: TFilterType; property HighlightResults: boolean; end;