TWMCompareItem = packed record
  Msg: Cardinal;
  Ctl: HWnd;
  CompareItemStruct: PCompareItemStruct;
  Result: Longint;
end;

struct TWMCompareItem {
  unsigned Msg;
  HWnd Ctl;
  PCompareItemStruct CompareItemStruct;
  Longint Result;
};