Voice prompts not working due to infinite recording (on Win10)

[ujikol]

(org-ai-talk--record-and-transcribe-speech) does not stop recording because (while-no-input) is not working as expected.

(message "while code: %s"
(while-no-input
(let ((key
(message "key pressed: %s" (read-key-sequence "Press any key to stop recording, cancel with C-g or ESC..."))
))
(message "in loop: %s" key))))
<<<

If I excute just the 4th line then the out put is:
"key pressed: a"
-->fine

But if I execute all then the output is:
"while code: t"
--> Would assume that (while-no-input) sees some input. BUT:
"Press any key to stop recording, cancel with C-g or ESC..." is displayed and processing is paused. After pressing a key the rest of the execution within the body is immediately skipped. So the pressed key is never processed.

This looks like a weired behavior. But that's the way it is on Win10 at least.