Hi Matze,
ich hab nochmal ein bisschen rumprobiert und zu folgender Lösung gekommen:
Klopp das TApplicationEvents erstmal in die Tonne. Die Variable IsShift behälst du aber bei.
Dann folgender Code im OnKeyPress deiner Form:
Delphi-Quellcode:
if IsShift then
Key := Chr(0);