Отправка сообщения.

пытаюсь отправить сообщение в ответ на входящее ну это не суть вообщем
в мобильной версии вк пытаюсь отправить сообщение и ничего не выходит)))
редирекдид на страницу с ошибкой "У Вас недостаточно прав для совершения этого действия."
а если быть точнее то вот сюда http://m.vkontakte.ru/blank?code=35
чего такое не въеду
понапихал слипов толку ноль
может кто то сталкивался?!
Delphi

 

Code:

if Pos('"/inbox">Мои Сообщения (<b>1</b>)',VtopStra) <> 0 then
         begin
            showMessage('Успешно!');
            listbox1.Items.Add('У вас одно новое сообщение!');



            try
             sleep(10000);
             Http.Request.Host:='m.vkontakte.ru';
             Http.Request.UserAgent:='Mozila/5.0 (Windows; U; Windows NT 5.1; com; rv:1.9.0.10) Gecko/2009042316 Firefox/3.0.10';
             Http.Request.Accept:='text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8';
             Http.Request.AcceptLanguage:='ru,en-us;q=0.7,en;q=0.3';
             Http.Request.AcceptCharSet:='windows-1251,utf-8;q=0.7,*;q=0.7';
             a :=HTTP.Get('http://m.vkontakte.ru/inbox');
             Memo1.Text :=a;
            except


            end;
            if Pos('<a href="/letter',a) <>0 then
                  begin
                     nomeppismo :=Copy(a,Pos('/letter', a)+7, 5);
                     Memo4.Lines.Add(nomeppismo);
                     sleep(9000);
                     GlavMail :=HTTP.Get('http://m.vkontakte.ru/letter'+nomeppismo+'?');
                     ToId :=Copy(GlavMail,Pos('name="to_id" value="',GlavMail)+20, 9);
                     Chas :=Copy(GlavMail,Pos('<input type="hidden" name="chas" value="',GlavMail)+40,18);
                     Memo4.Lines.Add(ToId);
                     Memo4.Lines.Add(Chas);
                        try

                           sleep(6000);
                           Http.Request.Host:='m.vkontakte.ru';
                           Http.Request.UserAgent:='Mozilla/5.0 (Windows; U; Windows NT 5.1; ru; rv:1.9.0.10) Gecko/2009042316 Firefox/3.0.10';
                           Http.Request.Accept:='text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8';
                           Http.Request.AcceptLanguage:='ru,en-us;q=0.7,en;q=0.3';
                           Http.Request.AcceptCharSet:='windows-1251,utf-8;q=0.7,*;q=0.7';
                           Http.Request.Referer:='http://m.vkontakte.ru/letter'+nomeppismo;

                           Data.Add('value="Отправить"');
                           Data.Add('to_id='+ToId);
                           Data.Add('to_reply='+nomeppismo);
                           Data.Add('title=RE:...');
                           Data.Add('chas'+Chas);

                           Data.Add('message=112');

                           b := Http.Post('http://m.vkontakte.ru/mailsent?pda=1', Data);

вот

 

kosmo987 спасибо натолкул на ответ было "Data.Add('chas'+Chas);"
держи +

p.s. когда писал торопился и не перепроверив исходник создал тему...