Source position: DAV_GuiBaseControl.pas line 43
type TGuiOnDragMouseMove = procedure(
Sender: TObject;
Button: TMouseButton;
Shift: TShiftState;
X: Integer;
Y: Integer
) of object;