Source position: controls.pp line 428
protected procedure TDragDockObject.InitDock(
APosition: TPoint
); virtual;