Не получается зарегистрироваться на сайте (Idhttp)

 S:=IdHTTP1.Get('http://www.drweb.com/press/chip/');
 uniq_id:=Copy(S, Pos('<input type="hidden" value="', S)+28, 65);

procedure TForm1.Button2Click(Sender: TObject);
var Data:TStringList;
begin
  idhttp1.Request.Referer:='http://www.drweb.com/press/chip/';
  idhttp1.Request.ContentType:='application/x-www-form-urlencoded';
  idhttp1.Request.CacheControl:='max-age=0';
  idhttp1.Request.Connection:='Keep-Alive';
  idhttp1.Request.Host:='www.drweb.com';
  idhttp1.Request.AcceptLanguage:='ru-RU,ru;q=0.8,en-US;q=0.6,en;q=0.4';
  idhttp1.Request.Accept:='text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8';
  IdHTTP1.Request.UserAgent:='Opera/9.80 (Windows NT 5.1; U; ru) Presto/2.2.15 Version/10.00';
  IdHTTP1.Request.AcceptEncoding:='deflate, gzip, x-gzip, identity, *;q=0';
  IdHTTP1.Request.Method:=hmPost;
Data:=TStringList.Create;
 Data.Add('mode=register_word');
 Data.Add('fio='+Edit1.Text);
 Data.Add('email='+Edit2.Text);
 Data.Add('word='+Edit4.Text);
 Data.Add('cappub='+uniq_id);
 Data.Add('captext='+Edit3.Text);
 S:=IdHTTP1.Post('http://www.drweb.com/press/chip/', Data);
end;

procedure TForm1.Button2Click(Sender: TObject);
var Data:TStringList;
begin
idHttp1.Request.AcceptCharSet:='windows-1251,utf-8;q=0.7,*;q=0.3';
idHttp1.Request.Accept:='text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8';
Data:=TStringList.Create;
 Data.Add('mode=register_word');
 Data.Add('fio='+Edit1.Text);
 Data.Add('email='+Edit2.Text);
 Data.Add('word='+Edit4.Text);
 Data.Add('cappub='+uniq_id);
 Data.Add('captext='+Edit3.Text);
 S:=IdHTTP1.Post('http://www.drweb.com/press/chip/', Data);
end;