TRichView.com

I like to use automatic URL-Detection, shown in the URL-Demo with DetectURL. Unfortunately the Function "RV_CharPos" is removed in XE2. How would I detect URLs using XE2

{$IFNDEF RICHVIEWDEFXE2}
function RV_CharPos(const Str: PRVAnsiChar; Chr: TRVAnsiChar; Length: Integer): Integer; assembler;
{$ENDIF}

Do you use the demo in Demos\DelphiUnicode\Assorted\Hypertext\URLs\ ?
If yes, please download the new version of the demos. They are compatible with Delphi XE2 and do not use RV_CharPos.