Controls
type TDragRec = record
Pos: TPoint;
Source: TDragObject;
Target: TControl;
Docking: Boolean;