TWMDeleteItem = packed record
  Msg: Cardinal;
  Ctl: HWND;
  DeleteItemStruct: PDeleteItemStruct;
  Result: Longint;
end;

struct TWMDeleteItem {
  unsigned Msg;
  HWND Ctl;
  PDeleteItemStruct DeleteItemStruct;
  Longint Result;
};