[fpc-pascal] Getting Shift key with PTCCRT

[James Richters]

I have some key sequences with PTCCRT.READKEY  where I use a lower case
letter to do one thing and an uppercase to do another, but if the Capslock
is on, they do the wrong things.  Is there a way I can check the condition
of the shift key to see if shift was actually pressed instead of just going
by whether I got a capital letter or not?   The key input is not something
that is ever displayed on the screen, it's just making selections and doing
them.

James