How to setup DBLookupComboBox?

Question

Delphi

Good day! Faced a very unpleasant problem during the development of a desktop application. The problem is in the DBLookupComboBox component. The form has an ADO with an Access database, two DBLookupComboBox components, both connected to the table via DataSourse1 via ListField. The data from the table is displayed in both boxes, but when I selected a record in the first one, and then switch to the second combobox, the value from the first combobox disappears. I work in the Delphi XE7 environment, I used to work with Borland 7 and there was no such problem. For example, I made the same example in Borland and everything works, but not here. What could be the problem? In the environment or I do not understand something? -_-

Answer 1

Project link

https://yadi.sk/d/_5sc0YAF3abhhJ

Same problem in Delphi 10.1...

Answer 2

Probably DBLookupComboBox is filled with values ​​when the component is activated.
After selecting a value in the first DBLookupComboBox, the cursor in the ADOTable1 table is set to a specific record, and after activating the second DBLookupComboBox, the table is reread and the cursor gets lost. Connect TDBGrid, and it becomes visible visually.