Unit
WPCTRMemo

Declaration

TWPTestForLinkEvent = procedure(Sender: TObject; par: TParagraph;
    var posinpar, len: Integer; var IsLink: Boolean) of object;