TCMFloat = packed record
  Msg: Cardinal;
  Reserved: Integer;
  DockSource: TDragDockObject;
  Result: Integer;
end;

struct TCMFloat {
  unsigned Msg;
  int Reserved;
  TDragDockObject DockSource;
  int Result;
};