pick date by name, code or substring (#20107)

a data entry form uses custom control TDBColorLookupComboBox to select the wanted data from a picklist. The control was modified to support incremental selection. So if you type C the item selected in the picklist will be CASSA.... If you add R (this makes string 'CR') the item selected will be CREDITO... etc. Now the client has an interesting requests. He wants to select from the picklist using company NAME (like he does today) or company CODE. He even wants to search a company using a substring contained in the company NAME. While I know how to show CODE;NAME in the picklist (or NAME;CODE), it is not clear to me how to nicely switch from name-search mode to code-search mode or to substring-search mode). The coder will suggest a smart solution to the problem and deliver a simple test application. Any TDataset used in the test application is ok. Any change done to control TDBColorLookupComboBox is ok, too. Please note that the final code must compile in Delphi 5.