Unit
WPCTRMemo

Declaration

TWPToolBarSelectionEvent = procedure(Sender: TObject; var Typ: TWpSelNr;
    const str: string; const num: Integer) of object;