[adidas]

Спасибо, но не все ссылки полностью выводит
Добавлено
Вроде, это:

Код:

rege.Expression:='(http|ftp)://([\w.]+)/([\w\?\+=\-\.\\]+)';

заменил на это:

Код:

rege.Expression:='(http|ftp)://([\w.]+)/([\w\?\+=\-\\/\.\\]+)';

- отображает полностью