OnDragDrop event dispatcher.
procedure DragDrop(Sender: TObject; Source: TObject; X: Integer; Y: Integer); virtual;
Override DragDrop to add additional code that executes before the OnDragDrop event handler is called.
The Source parameter is the object that was dropped onto the control Sender. The X and Y parameters are the mouse coordinates where the object was dropped.