Проблема с кукисами в дельфи

[Max111222]

Доброго времени суток!
Недавно начал программировать на дельфи и добрался до такой темы как работа с Indy TidHttp and Cokie.Написал простенькую авторизацию для одного форума,перед этим закинул сам куки менеджер,2 кнопки,IdHttp(привязал к нему менеджер) и поля для ввода логина и пароля,а также поле для отправки сообщения.Поясню что за "сообщения"-нужно чтобы пользователь заходил на сайт,кукисы сохранялись и при переходу на сам линк осуществлялся post запрос на добавление сообщений в мини-блог форума и при этом юзер должен авторизован быть(благодаря кукам).Ну,вроде как все правильно написал,но чет не пашет.
Вот код авторизации:

procedure TForm2.Button1Click(Sender: TObject);
var
pagedata:string;
data: TStringList;
i : integer;
begin
pagedata:= IdHTTP1.Get('http://www.webmasters.ru/forum/login.php?do=login');
    Data := TStringList.Create;
    idHttp1.Request.Host:='webmasters.ru';
    idHttp1.Request.UserAgent:='Mozilla/5.0 (Windows; U; Windows NT 5.1; ru; rv:1.9.0.10) Gecko/2009042316 Firefox/3.0.10';
    idHttp1.Request.Accept:='text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8';
    idHttp1.Request.AcceptLanguage:='ru,en-us;q=0.7,en;q=0.3';
    idHttp1.Request.AcceptCharSet:='windows-1251,utf-8;q=0.7,*;q=0.7';
    idHttp1.Request.Referer:='http//www.webmasters.ru';
data:= TStringList.Create;
data.Add('vb_login_username='+Edit1.Text) ;
data.Add('vb_login_password='+Edit2.Text)  ;
data.Add('securitytoken=guest') ;
data.Add('do=login');
data.Add('vb_login_md5password=') ;
data.Add('s=') ;
data.Add('vb_login_md5password_utf=') ;
pagedata:= IdHTTP1.Post('http://www.webmasters.ru/forum/login.php?do=login',data);
if Pos('register.php',pagedata)<>0 then ShowMessage('Вход не выполнен') else ShowMessage('Вход выполнен');
post:= TStringList.Create;
post.Add('message_backup='+Edit3.Text);
post.Add('message='+Edit3.Text);
post.Add('wysiwyg=0');
post.Add('sbutton=Отправить сообщение');
post.Add('fromquickcomment=1');
post.Add('s=');
post.Add('securitytoken=Здесь должна быть часть токена,но палить лучше не надо-3f1ec02e060cb82afafbdf98e18ed1d72a94d915');
post.Add('do=message');
post.Add('u=22034');
post.Add('u2=');
post.Add('loggedinuser=22034');
post.Add('parseurl=1');
post.Add('lastcomment=');
post.Add('allow_ajax_qc=0');
post.Add('fromconverse=');
postdata:= IdHTTP1.Post('http://webmasters.ru/forum/visitormessage.php?do=message',post);

end;

Вот код отправки сообщения в мини-блог на форуме...:

procedure TForm2.Button2Click(Sender: TObject);
var
post: TStringList;
postdata: string;
begin
post:= TStringList.Create;
post.Add('message_backup='+Edit3.Text);
post.Add('message='+Edit3.Text);
post.Add('wysiwyg=0');
post.Add('sbutton=Отправить сообщение');
post.Add('fromquickcomment=1');
post.Add('s=');
post.Add('securitytoken=Здесь должна быть часть токена,но палить лучше не надо-3f1ec02e060cb82afafbdf98e18ed1d72a94d915');
post.Add('do=message');
post.Add('u=22034');
post.Add('u2=');
post.Add('loggedinuser=22034');
post.Add('parseurl=1');
post.Add('lastcomment=');
post.Add('allow_ajax_qc=0');
post.Add('fromconverse=');
postdata:= IdHTTP1.Post('http://webmasters.ru/forum/visitormessage.php?do=message',post);

end;

В коде может быть куча мусора,извините,пока учусь
P.s: Много топиков на данном форуме прочитал,но почему-то не работает

[Stilet]

,но чет не пашет.

Допустим. Как проявляется "непахание"? Ошибка? Вылет? Данные не попадают на сайт?

[Max111222]

Сообщение от Stilet

Допустим. Как проявляется "непахание"? Ошибка? Вылет? Данные не попадают на сайт?

Ошибки нет,скорее всего данные отсылаются на сайт,но отправляются не авторизованым пользователем и благодаря я так понимаю кукисам или может в коде ошибка.Ну,а код сам по себе правильный, как вы думаете?

Stilet,Кстати можете сказать есть ли погрешности в коде и как можно сделать его лучше.Буду очень рад!

[Stilet]

Врядли я так скажу не зная механизма сайта )
Это нужно его изучать.
Что приходит в postdata смотрел?

[Max111222]

Сообщение от Stilet

Врядли я так скажу не зная механизма сайта )
Это нужно его изучать.
Что приходит в postdata смотрел?

Конечно, то что забивал в переменную Data, то там и было.Я проверил,авторизация сама рабочая.Ну вот проблема я уже догадываюсь в чем.Походу проблема в Indy,много где читал что куки менеджер не все сайты может обработать.Типа там где чистый JavaScript,то у менеджера трабл.Ну,думаю делать свой менеджер через код(благо исходников в интере куча).Увидим...
P.S: Кстати,форум на аналоге движка IPB, вроде VBULLETIN

[Stilet]

Типа там где чистый JavaScript,то у менеджера трабл

Ха! Так это наверное только компоненты браузерные типа хромиума или стандартного веббравзыря отработать смогут )

Ну,думаю делать свой менеджер через код(благо исходников в интере куча).Увидим...

Ну удачи )

P.S. Чесслово я бы инди выкинул, и использовал бравзерь.

[Max111222]

Сообщение от Stilet

Ха! Так это наверное только компоненты браузерные типа хромиума или стандартного веббравзыря отработать смогут )

Ну удачи )

P.S. Чесслово я бы инди выкинул, и использовал бравзерь.

Пожалуй последую вашему совету)Скорее всего лучше через браузер
Было бы неплохо,если бы вы мне описали как нужно это сделать через елемент ВебБраузера...
P.S: Можно тему думаю закрыть чтоль......