TWMCtlColor = packed record
  Msg: Cardinal;
  ChildDC: HDC;
  ChildWnd: HWND;
  Result: Longint;
end;

struct TWMCtlColor {
  unsigned Msg;
  HDC ChildDC;
  HWND ChildWnd;
  Longint Result;
};