{
ShortCutToKey example
The following code redefines the ShortCut of CloseCommand if the original short cut used the [ssCtrl] shift state.
} 
var
  TheKey: Word;
  TheShiftState: TShiftState;
begin
  ShortCutToKey(CloseCommand.ShortCut, TheKey, TheShiftState);
  if TheShiftState = [ssCtrl] then
   CloseCommand.ShortCut := ShortCut(Word('C'), [ssShift]);
end; 
