Регистрация в twitter

[kakawkin]

Пишу регистратор для twitter.com
Дописал - в хидерах приходит мол все правельно, вы перенаправлены на страницу welcome и акк создан. Но он не создается на самом деле :'(
Вот код моей программы:

procedure TForm1.Button2Click(Sender: TObject);
var post,ls,ll:tstringList;ss,lname,fname,mail,a:string;
begin
 post:=TStringList.Create;
 ls:=TStringList.Create;
 ll:=TStringList.Create;
 a:=hhtp.Get('http://10minutemail.com/10MinuteMail/index.html');
 reg.Expression:='<br />([^.]+).com';
 if reg.Exec(a) then mail := reg.Match[1];
 mail:=mail+'.com';
 lname:=WeakPassword(6);
 ll.Add('authenticity_token=');
 ll.Add('user[name]='+lname);
 ll.Add('user[email]='+mail);
 ll.Add('user[screen_name]='+lname+'154');
 ll.Add('user[user_password]='+lname+'158745');
 ll.Add('context=');
 ll.Add('user[discoverable_by_email]=1');
 ll.Add('user[send_email_newsletter]=1');
 memo1.Lines.Add('1');
 hhtp.Request.Clear;
 hhtp.URL.Host:='twitter.com';
 hhtp.URL.Port:='80';
 hhtp.Post('https://twitter.com/account/create',ll);
 memo2.Text:=http.Headers.Text;
 http.Document.SaveToFile('C:\111.html');
 memo1.Lines.Add(mail);
 memo1.Lines.Add('lname= '+lname);
 memo1.Lines.Add('pass= '+lname+'158745');
end;