Капча при эмэйл регистр.

[SmiLy93]

Кто может помочь с капчей на сайте http://u.vas.estemail.com.ua/ . Пишу в общеоброзовательных целях (учусь я), поэтому выбрал этот сайт, чтобы не кричали спамер и т.п. ^_^

Цитата:implementation
var sec_code, S:string;

procedure TForm1.Button1Click(Sender: TObject);
var FS:TFileStream;
begin
S:=IdHTTP1.Get('http://u.vas.estemail.com.ua/register/');
sec_code:=Copy(S, Pos('sec_code', S)+5, 10);
FS:=TFileStream.Create('captcha.png ',FMCreate);
IdHTTP1.Get('http://u.vas.estemail.com.ua/img/estemail.com.ua/sec/'+sec_code+'.png', FS);
FS.Free;
Image1.Picture.LoadFromFile('captch a.png');
end;