Bei deiner
OH -Recherche solltest du auch über dir Funktion ShortCut gestolpert sein
Versuch's mal im OnKeyDown (Da bekommst du auch den ShiftState)
Delphi-Quellcode:
var
TempShortCut :TShortCut;
begin
TempShortCut:= ShortCut(Key, shift);
Edit1.Text := ShortCutToText(TempShortCut);
...