TCMControlListChanging = record
  Msg: Cardinal;
  ControlListItem: PControlListItem;
  Inserting: LongBool;
  Result: Longint;
end;

struct TCMControlListChanging {
  unsigned Msg;
  PControlListItem ControlListItem;
  LongBool Inserting;
  Longint Result;
};