DiegoPerini has written
a perfectly tested regex to find a URL, so you can make a good use of it. I haven't tested it using our regexpr unit, though.
EDIT:
It needs some modifications due to negative lookahead and non-capturing subpattern (simply remove all ?! and ?: after opening parentheses). But even after that, you must still modify regexpr unit to increase NSUBEXPR constant, 15 is not enough for this regex (my test found that 25 is not enough, 35 is enough, so it's somewhere between). One last thing, activate {$define unicode} or modify all occurences of \x{xxxx} to \x{xx} (if you don't want unicode support).
Attached is a test program using test data from link above, which unfortunately doesn't return all true for the "expected to be true" part.