заголовок сайта & delphi

Подскажите где мне найти процедуру получения заголовка сайта по его адресу. Допустим, вызываем эту процедуру, с поступлением в неё строковой переменной с адресом: http://otvet.mail.ru/ А процедура мне возвращает строковую переменную с заголовком сайта, в данном случае должна возвратить "Ответы@Mail.Ru: Человеческий поиск ответов на любые вопросы. Открытые вопросы" Вообще хотел найти её исходный код на Delphi, но если есть на C++, то ради этого освою азы этого языка и напишу программку. Мне нужно обрабатывать большое количество таких адресов. Помогите.