Как отловить правый Enter (NumPad)?

Code:

procedure TForm1.WMKeyDown(var Message: TWMKeyDown);

begin

inherited;

case Message.CharCode of

   VK_RETURN:

     begin // ENTER pressed

       if (Message.KeyData and $1000000 <> 0) then

         begin

                 { ENTER on numeric keypad }

         end

       else

         begin

                 { ENTER on the standard keyboard }

         end;

     end;

end;

end;