ANTICHAT - Показать сообщение отдельно - [Delphi]/[Pascal] Задай вопрос, получи ответ

Народ помогите! пытаюсь через программу проголосовать на ла2топе....куки забрал а вот как получить капчу? я делал воттак:

PHP код:


		
			
procedure TForm1.Button1Click(Sender: TObject);

var   Http  : TidHttp;

  CM    : TidCookieManager;

  Data  : TStringList;

  Strpage :string;

  Strpagse :string;

  UserID,  UserName  :  String;

  e,f,r : integer;

  sd,cooks : string;

  streamresponse:TMemoryStream;

begin

 Http := TIdHTTP.Create(Self);

    Data := TStringList.Create;

    CM := TidCookieManager.Create(Http);

    Http.AllowCookies := true;

    Http.CookieManager := CM;

    Http.HandleRedirects := false;

Http.Request.Host:='l2top.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:='image/png,image/*;q=0.8,*/*;q=0.5';

Http.Request.AcceptLanguage:='ru,en-us;q=0.7,en;q=0.3';

http.Request.AcceptEncoding:='gzip,deflate';

http.Request.AcceptCharSet:='windows-1251,utf-8;q=0.7,*;q=0.7';

http.Request.Referer:='http://l2top.ru/vote/1303/';

http.Request.CustomHeaders.Text:='Cookie:' +memo3.Text;

e:=pos('/getimg.php',memo1.Text);

cooks:=copy(memo1.Text,e,17);

memo2.Lines.Add(cooks);

sd:=memo2.Text;

f:=pos('?',memo2.Text);

sd:=copy(memo2.Text,f,4);

memo2.Text:='';

memo2.Lines.Add(sd);

streamresponse:=TMemoryStream.Create;

idhttp1.Get('http://l2top.ru/vote/1303/getimg.php'+memo2.Text,streamresponse);

streamresponse.SaveToFile('C:\reserv1.jpeg');

form1.Image1.Picture.LoadFromFile('C:\reserv1.jpeg');

DeleteFile('С:\reserv1.jpeg');





end;

в Memo3 - у меня куки
а в memo2 - ссылка на капчу она каждый раз меняется по етому её приходится брать из кода странички...

когда нажимаю на кнопку выдаёт ошибку <HTTP> что я нетак сделал?