function retrieve (email : string) : integer;
var
  coo : tidcookiemanager;
  http : tidhttp;
  post : tstringlist;
begin
  coo := tidcookiemanager.create;
  http := tidhttp.create; http.allowcookies := true; http.cookiemanager := coo; http.request.useragent := 'Mozilla/4.0 (compatible; MSIE 7.0; Windows NT 6.0)';
  post := tstringlist.create;

  post.add ('op=a_retrieve');
  post.add ('email=' + email);
  http.request.referer := 'http://vk.com/login.php?op=forgot';
  http.post ('http://vk.com/login.php', post);

  http.free; post.free; coo.free;
  result := 1;
end;