Hallo Lukas,
wenn du WM_KeyDown und WM_KeyUp verarbeitest, ist die Nachricht vom Typ
TWMKey. In diesem Record befindet sich ein Feld
KeyData, das du mit der Funktion
KeyDataToShiftState aus der
Unit Forms in einen TShiftState-Wert umwandeln kannst.
Gruß Hawkeye