TWMDrawItem = packed record
  Msg: Cardinal;
  Ctl: HWND;
  DrawItemStruct: PDrawItemStruct;
  Result: Longint;
end;

struct TWMDrawItem {
  unsigned Msg;
  HWND Ctl;
  PDrawItemStruct DrawItemStruct;
  Longint Result;
};