[Страдалецъ]

Ну вы хоть с синтаксисом немножко ознакомьтесь.

Код:

ADOTable1.SQL.text := 'select Link from rss group by link having Count(Link)>1';
ADOTable1.Open;