TCMChanged = record
  Msg: Cardinal;
  Unused: Longint;
  Child: TControl;
  Result: Longint;
end;

struct TCMChanged {
  unsigned Msg;
  Longint Unused;
  TControl * Child;
  Longint Result;
};