My reply seems to be eaten up by forum software, so I'll repeat:

Try
Code:
if keypressed then Key:= readKey;
instead of just
Code:
 Key:= readKey;
That should fix the issue!