Applies to
TWPRichText

Declaration
TWPCheckProtectedEvent = Procedure(Sender: TObject; par: TParagraph; posinpar: Integer; var Protection: TWPProtectedMode; CheckClearSelection: Boolean) of object;