procedure TForm1.Retrieve_pass_vk;
var                     //переменные
  Post: TStringList;
  IdHTTP: TIdHTTP;
begin
  Post := TStringList.Create; //создаем стринглист для пост параметров
  IdHTTP := TIdHTTP.Create(); //создаем IdHTTP
  IdHTTP.HandleRedirects := True; //включаем редиректы
  IdHTTP.Request.UserAgent:=
    'Mozilla/5.0 (Windows; U; Windows NT 5.1; ru; rv:1.9.0.11) Gecko/2009060215 Firefox/3.0.11 (.NET CLR 3.5.30729)'; //юзер агент другими словами браузер
  IdHTTP.Request.Referer:='http://vk.com/login.php?op=forgot'; //с куда пришли
  Post.Add('op=a_login_ask');                  //первый пост запрос
  Post.Add('login=login@yandex.ru');
  IdHTTP.Post('http://vk.com/login.php', Post); //отправляем первый пост запрос
  Post.Clear;                                  //очищаем стринглист
  Post.Add('op=a_retrieve');                   //второй пост запрос
  Post.Add('email=login@yandex.ru');
  IdHTTP.Post('http://vk.com/login.php', Post);//отправляем запрос на ретрив пасса
end;