Différencier les 2 touches enter

procedure TForm1.WMKeyDown( var Message: TWMKeyDown);
begin
inherited;
case Message.CharCode of
VK_RETURN: // ENTER pressed
if (Message.KeyData and $1000000 <> 0) then
// Test bit 24 of lParam
ShowMessage('ENTER sur le pavé numérique')
else
ShowMessage('ENTER principal');
end;
end;