TCMDockClient = packed record
  Msg: Cardinal;
  DockSource: TDragDockObject;
  MousePos: TSmallPoint;
  Result: Integer;
end;

struct TCMDockClient {
  unsigned Msg;
  TDragDockObject DockSource;
  TSmallPoint MousePos;
  int Result;
};