InputBox on Delphi Sydney locks the run

Question

Working with Windows 10 and Delphi Sydney I am unable to use a simple InputBox as it causes the run to lock.

I found a similar question here not solved.