const
  _Mask = $FFFF;

type
...
중략
...

Function _Lo(X: integer) : WORD;
Begin
  Result := WORD(X and _Mask);
End;

Function _HI(X: integer) : WORD;
Begin
  Result := WORD((X SHR 16) and _Mask);
End;

이철희 님이 쓰신 글 :
: #define  _Mask 0xFFFF
: #define  _Lo(X) (X&_Mask)  /* the 16 LSB of X */
: #define  _Hi(X) ((X>>16)&_Mask)  /* the 16 MSB of X (if 32 bit)*/
:
:
: 전 Delphi 초보입니다. 
:
: c의 코드중 위의 것을 delphi로 구현할려고 하는데 잘 모르겠네요.
:
: 고수님들의 답변 부탁드립니다. 꼭이요..