https://pyclip.ru/ru/tapes/v3hvzhcJG8I/how-to-implement-tdblookupcombobox-in-delphi