[Помогите!] хелп

[pavel!]

Пишу программу которая заходит на ргхост и оставляет комент.
Все написал, а коменты не остовляет, т.е импуты не заполняются хотя я указал что допустим coment:=test passcoment:=testcomment
Сделано через веб браузер.
Ладно что гадать вот код:

procedure TForm1.Button1Click(Sender: TObject);
begin
Webbrowser1.Navigate('http://rghost.ru/comments/new?fileset_id='+edt1.Text);
end;

procedure TForm1.Button2Click(Sender: TObject);
var
  i:Integer;
  html_tag:Variant;
  s:string;
begin
  html_tag:=WebBrowser1.OleObject.Document.forms.item(0).elements;
  for i:=0 to (html_tag.length-1) do
begin
  if (html_tag.item(i).Name='comment[nick]') then
  html_tag.item(i).value:='test';

  if (html_tag.item(i).Name='comment[comment]') then
  html_tag.item(i).value:='test';

  if (html_tag.item(i).value='Добавить') then
  html_tag.item(i).OnClick;
end;

end;
end.

Так же попробовал ПОСТ, Ошибка интервал сервер ерор.:

var
i:Integer;
p:TStringList;
info:TStringList;
begin
  p:=TStringList.Create;
  info:=TStringList.Create;
  IdHTTP1.AllowCookies:=True;
  IdHTTP1.HandleRedirects:=True;
  begin
    info.Add('utf8=?');
    info.Add('authenticity_token=P2vAKDpbY7YcrmpUYvn4KppS7Iew56uLQf0SOZEUD8k=');
    info.Add('fileset_id='+edt1.Text);
    info.Add('comment[nick]='+Edit1.Text);
    info.Add('comment[comment]'+edt3.Text);
    info.Add('commit=Добавить');
    p.Text:=IdHTTP1.Post('http://rghost.ru/comments/new?fileset_id=', info);

  end;
  info.Free;
  p.Free;
end;

end.

[VeTaL_UA]

Что за бред во втором коде? 0_о

Добавлено через 1 час 17 минут

Цитата: Сообщение от pavel! info.Add('authenticity_token=P2vAKDpbY7YcrmpUYvn4K ppS7Iew56uLQf0SOZEUD8k=');

Это значение нужно парсить, так как оно предназначено для защиты от роботов.

[pavel!]

Цитата: Сообщение от VeTaL_UA Что за бред во втором коде? 0_о Добавлено через 1 час 17 минут Это значение нужно парсить, так как оно предназначено для защиты от роботов.

Cуть в том что он даже не конектится выдает ошибку.
Мне еще сказали якобы там стоит капча

[VeTaL_UA]

Цитата: Сообщение от pavel! Cуть в том что он даже не конектится выдает ошибку.

Суть в том, что 99% сайтов блокируют запрос, UserAgent которого в Request'е стандартный, тоесть:

Mozilla/3.0 (compatible; Indy Library)

Но не стоит паниковать!!! Достаточно всего лишь дописать такую строку:

IdHTTP1.Request.UserAgent:='Mozilla/4.0 (compatible; MSIE 7.0; Windows NT 6.0)';

И проблемма исчезнет, естественно, если она возникает именно от этого.