dropdown on lookupfield shows one row to little

L.S.,

It looks like the dropdown on the grid displays 1 row less than it could (or should)  when application uses "Windows 10" as style.
When I use default/normal windows as style it displays all rows.

I constructed an example that demonstrates this behaviour. When compiled with Windows 10 style it shows 1 row to little in the dropdowns on the lookup-columns.
When compiled with Windows  "normal" style it shows all the rows in the dropdowns on the lookup-columns.

Can this be fixed or "worked-around"? Or am I doing something wrong here?

With regards,
Peet Terluin
Link to zipped example project Delphi Rio


When I open this project, I get an error VirtualTable not found.

Please provide a project that has except TMS products no external dependencies.
I'm sorry, I've changed my virtual tables for TClientDatasets. I hope this works.

updated project




I've updated the example. Can you try again?
with regards,
Peet Terluin