Уффф... Кажись что-то наконец нарисовалось! Спасибо за помощь!
Метод такой: всю обработку клавиатуры надо перенести в OnShortCut формы. И далее примерно так:
	Код:
	| 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 | procedureTfm_komp.FormShortCut(varMsg: TWMKey; varHandled: Boolean);
 begin
   GlobalKeyBoardKey := dm.GetExtKey(Msg.CharCode); 
   GAlt := dm.AltDown; 
     ifGlobalKeyBoardKey = ukShowOperPanel then
     begin
       sbShowOperPanel.Down := notsbShowOperPanel.Down;
       sbShowOperPanelClick(Self);
       Handled := true;
       exit;
     end;
   ........ 
     ifGAlt thenHandled := true; 
 end;
 | 
 
В случаях, когда надо обрабатывать ГК, только если определённые контролы имеют фокус, здесь же это и проверяем.