[pgsql-jp: 25632] デルファイにすると

[AkihikoHiroe]

どなたかご教授ください。
下記C++コードをデルファイでコードを書くとどうなるのでしょうか？
未熟者（まだそんなにやってません）ですがよろしくお願いします。

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