Unit
WPRTEPaint

Declaration

TWPTextObjectEditEvent = procedure(Sender: TObject; pobj:
    TWPTextObj; Editing: Boolean) of object;