TWMNotify = packed record
  Msg: Cardinal;
  IDCtrl: Longint;
  NMHdr: PNMHdr;
  Result: Longint;
end;

struct TWMNotify {
  unsigned Msg;
  Longint IDCtrl;
  PNMHdr NMHdr;
  Longint Result;
};