Applies toTESBPCSEdit
DeclarationTDragDropEvent = Procedure(Sender, Source: TObject; X, Y: Integer) of object;