Usar o CTRL, ALT e SHIFT do lado direito do teclado

coloquei a propriedade do form KeyPreview = True

E no evento OnKeyDown:

Case Key of
VK_RMENU: BBEditarClick(BBEditar);
VK_RCONTROL : BBAtualizarClick(BBAtualizar);
VK_RSHIFT: BBSalvarClick(BBSalvar);
end

Só que não acontece nada. O que falta?