Source position: controls.pp line 401
type TDockDropEvent = procedure(
Sender: TObject;
Source: TDragDockObject;
X: Integer;
Y: Integer
) of object;