TCMUnDockClient = packed record
  Msg: Cardinal;
  NewTarget: TControl;
  Client: TControl;
  Result: Integer;
end;

struct TCMUnDockClient {
  unsigned Msg;
  TControl * NewTarget;
  TControl * Client;
  int Result;
};