[ Delphi ] Проверка E-mail на существование

Здравствуйте.Хочу написать программу для проверки занятости e-mail.

Для пробы взял сервис mail.ру.Проверять хочу при помощи возможности восстановления пароля (http://win.mail.ru/cgi-bin/passremind), если мыло есть, то просят ввести ответ на секретный вопрос,если мыла нет ,то нечего с меня не спросят.

Использую indy10/
Вот мой код:

Code:

a:=наше мыло

data:=tstringlist.Create;
     data.Add('Action=login');
     data.Add('Username='+copy(a,1,pos('@',a)-1) );
     data.Add('Domain='+copy(a,pos('@',a)+1,Length(a)) );

S:=Http.post('http://win.mail.ru/cgi-bin/passremind',data);

В переменной S храниться код где просят ввести мыло(я думал в S будет либо код где просят ввести ответ на секретный вопрос ,либо сообщение что мыла не существует)
Подскажите как сделать то что я хочу или другой метод проверки занятости e-mail?

з.ы читал в гугл. Написано что методы проверки существования аккаунта на сервере уже не работают.

 

я не знаю как там на мейле, но на яндексе например адрес емейл и логин к аккаунту это совершенно разные вещи и гарантии нет никакой то что первая часть емейла совпадает с логином

 

Если я не ошибаюсь то логин на яндексе это то что стоит перед ' @ ' в имени твоего ящика.

 

или не в этом заключался вопрос? -)

 

Я почти так и делаю но S хранится форма где просят ввести мыло а не ответ есть мыло или нет.