Applies toTDBWPRichText
Declarationprocedure MouseDown(Button: TMouseButton; Shift: TShiftState; X, Y: Integer);