下記C++コードをDELPHIでコードを書くとどうなるのでしょうか？

long key = (VkKeyScan( VK_SHIFT ) & 0x80000000 ? 0x1000000 : 0) | Msg.wParam;