TCMControlChange = record
  Msg: Cardinal;
  Control: TControl;
  Inserting: LongBool;
  Result: Longint;
end;

struct TCMControlChange {
  unsigned Msg;
  TControl * Control;
  LongBool Inserting;
  Longint Result;
};