TWMSetCursor = packed record
  Msg: Cardinal;
  CursorWnd: HWND;
  HitTest: SmallInt;
  MouseMsg: Word;
  Result: Longint;
end;

struct TWMSetCursor {
  unsigned Msg;
  HWND CursorWnd;
  SmallInt HitTest;
  Word MouseMsg;
  Longint Result;
};