Unit
WPRTEPaint

Declaration

TWPTextObjectSelectEvent = procedure(Sender: TObject; pobj:
    TWPTextObj; Selected: Boolean) of object;