TcxRichEditURLClickEvent = procedure(Sender: TcxCustomRichEdit; const URLText: string; Button: TMouseButton) of object;