TWMMeasureItem = packed record
  Msg: Cardinal;
  IDCtl: HWnd;
  MeasureItemStruct: PMeasureItemStruct;
  Result: Longint;
end;

struct TWMMeasureItem {
  unsigned Msg;
  HWnd IDCtl;
  PMeasureItemStruct MeasureItemStruct;
  Longint Result;
};