Нужна помощь кукиси

Решил написать автопостер ну там на блогах

Вот код *.* --это адрес сайта , программка собирает куки, но когда отправляется 2 пост запрос,куки программка не передает на сервер и поэтому вылезает ошибка вы не авторизованы. Как исправить. Помогите пожалуйста в долгу не останусь


procedure TForm1.btn1Click(Sender: TObject);
var site,auth:string;
begin

try
Http := TIdHTTP.Create(Self);
LoginInfo := TStringList.Create;
CM := TidCookieManager.Create(Http);
Http.AllowCookies := true;
Http.CookieManager := CM;
Http.HandleRedirects := true;
hTTP.RedirectMaximum:=5;
Http.Request.Host:='*.*';
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:='*.*';
LoginInfo := TStringList.Create;
LoginInfo.Add('username=Admin') ;
LoginInfo.Add('password=*******');
LoginInfo.Add('autologin=on');
LoginInfo.Add('redirect=');
LoginInfo.Add('query=');
LoginInfo.Add('login=Вход');
mmo1.Text:=Http.Post('http://*.*/login',LoginInfo);
LoginInfo.Free;

finally
end;
try
Http.HandleRedirects := true;
site:=Http.get('http://*.*/post?f=1&mode=newtopic');
Memo1.Text:=site;
auth:=Copy(site,Pos('name="auth[]" value="',site)+21,32);
Http := TIdHTTP.Create(Self);
LoginInfo := TStringList.Create;
LoginInfo.Add('subject=privet kak dela, tester678 ') ;
LoginInfo.Add('message=privetulki vsemmmm xax');
LoginInfo.Add('auth[]='+auth);
mmo2.Text:=IdHTTP2.Post('http://*.*/post',LoginInfo);
finally
end;
end;

Так ты перед вторым посмом заново создаёшь инди.. с чего им там быть то..
Http := TIdHTTP.Create(Self);
Если на разных процедурах\кнопках висит, объяви Http := TIdHTTP; глобально..
Либо сохраняй нужные куки после авторизации в переменную, опять же глобальную.. и потом добавляй где требуется.

Цитата se00 @ 31.01.13, 15:09

автопостер ну там на блогах

Спамер?

Цитата

Так ты перед вторым посмом заново создаёшь инди.. с чего им там быть то..
Http := TIdHTTP.Create(Self);
Если на разных процедурах\кнопках висит, объяви Http := TIdHTTP; глобально..
Либо сохраняй нужные куки после авторизации в переменную, опять же глобальную.. и потом добавляй где требуется.

Спасибо помогло , нашел ошибки.

Цитата

Спамер?

Почему именно спаммер , если бы я был спаммером , я бы за помощью не обратился с моими знаниями такую программку не напишешь.
Просто для авто наполнение своего блога , думать ни как было

Еще вопрос можно ли как сделать чтобы отчет показывал нормально , даже не разобрать какая ошибка вылетела , версия инди 9 , установил и 10 но там тоже отчет не из лучшших примерно так ????????????????????????????????
Не указан режим сообщения

ShowMessage(Utf8Decode('РќРµ указан режим сообщения'));