mail.com помогите с запросом

пробую зарегистрироваться на mail.com но регистрация не проходит, ниже набросок кода для теста

PHP:

function Pars(T_, ForS, _T: string): string;
var
  a, b: integer;
begin
  Result := '';
  if (T_ = '') or (ForS = '') or (_T = '') then
    Exit;
  a := Pos(T_, ForS);
  if a = 0 then
    Exit
  else
    a := a + Length(T_);
  ForS := Copy(ForS, a, Length(ForS) - a + 1);
  b := Pos(_T, ForS);
  if b > 0 then
    Result := Copy(ForS, 1, b - 1);
end;

procedure TForm1.Button1Click(Sender: TObject);
var http:tidhttp;
src, EVE, VIE:string;
data:tstringlist;
begin
 http:=tidhttp.Create(nil);
 with HTTP.Request do
  begin
   UserAgent:='Opera/9.80 (Windows NT 6.0; U; ru) Presto/2.2.15 Version/10.10';
   Host:='signup.mail.com';
   Accept:='text/html, application/xml;q=0.9, application/xhtml+xml, image/png, image/jpeg, image/gif, image/x-xbitmap, */*;q=0.1';
   AcceptLanguage:='ru-RU,ru;q=0.9,en;q=0.8';
   AcceptCharset:='iso-8859-1, utf-8, utf-16, *;q=0.1';
   ContentType:='application/x-www-form-urlencoded';
  end;
IdSSLIOHandlerSocketOpenSSL1.SSLOptions.Method:=sslvSSLv23;
Http.IOHandler:=IdSSLIOHandlerSocketOpenSSL1;
HTTP.HandleRedirects:=false;
HTTP.AllowCookies:=true;
src:=HTTP.Get('https://signup.mail.com/UserInformationB.aspx');
  with HTTP.Request do
  begin
   UserAgent:='Opera/9.80 (Windows NT 6.0; U; ru) Presto/2.2.15 Version/10.10';
   Host:='signup.mail.com';
   Accept:='text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8';
   AcceptLanguage:='ru,en-us;q=0.7,en;q=0.3';
   AcceptEncoding:='gzip,deflate';
   AcceptCharset:='windows-1251,utf-8;q=0.7,*;q=0.7';
   Referer:='https://signup.mail.com/UserInformationB.aspx';
   ContentType:='application/x-www-form-urlencoded';
  end;
VIE:=pars('VIEWSTATE" value="',src,'"');
EVE:=pars('EVENTVALIDATION" value="',src,'"');
memo1.Lines.Add(vie);
memo1.Lines.Add(eve);
data:=tstringlist.Create;
data.Add('__VIEWSTATE='+VIE);
data.Add('__EVENTVALIDATION='+EVE);
data.Add('hOptin=2');
data.Add('hdCheckbox=1');
data.Add('hdCampaignCheckbox=1');
data.Add('RefenceCode=event01');
data.Add('TrkID=0000');
data.Add('FirstName=asdasd');
data.Add('LastName=asdasd');
data.Add('drpMonth=12');
data.Add('drpDay=12');
data.Add('drpYear=1984');
data.Add('Username=buket8623');
data.Add('Domainname=mail.com');
data.Add('Password=235689');
data.Add('PasswordConfirm=235689');
data.Add('setpw=False');
data.Add('SecQuestion=2');
data.Add('SecAnswer=asdvc');
data.Add('Agreed=Create+Account');
src:=HTTP.post('https://signup.mail.com/UserInformationB.aspx', data);
memo1.Lines.Add(src);
end;


 

То что я вижу - это набор херни в одну строчку. код нормально оформи

 

регистрация не проходит

 

да вроде все нормально с куками и с переменными

 

Там 2 запроса надо слать , а ты шлешь только 1 - второй

P.S Скажи ,что тебе сервер отвечает на запрос

 

а какой второй запрос? сервак выдает 500 ошибку