Выдернуть каптчу

[Seven[up]]

Помогите выдернуть каптчу (после ввода мыла), _smotri.com/registration/submit .
Спасибо.

[kangreon]

Вот полностью рабочий код

function Reg(IdHTTP:TIdHTTP;Image:TImage;email,pass : string): string;
var
  ms : TMemoryStream;
  sl:TStringList;
  j : TJPEGImage;
begin
  sl := TStringList.Create;
  sl.Add('value=' + email);
  IdHTTP.Post('http://smotri.com/profile/ajax/check/submit/field/-/sign_up_email/signup_fast/',sl);
  sl.Clear;
  sl.Add('signup_fast-hint53=1&sign_up_email='+ email +'&back_url=&sing_up_fast=1');
  IdHTTP.Post('http://smotri.com/registration/submit',sl);
  ms := TMemoryStream.Create;
  IdHTTP.Get('http://smotri.com/profile/captcha',ms);
  ms.Seek(0,0);
  j := TJPEGImage.Create;
  j.LoadFromStream(ms);
  ms.Free;
  Image.Width := j.Width;
  Image.Height := j.Height;
  Image.Picture.Assign(j);
  j.Free;
  sl.Clear;
  sl.Add('signup-hint53=1');
  sl.Add('sign_up_email='+ email);
  sl.Add('sign_up_login='+ Copy(email,1,Pos('@',email)-1));
  sl.Add('sign_up_password='+ pass);
  sl.Add('sign_up_nick='+ Copy(email,1,Pos('@',email)-1));
  sl.Add('signup_key=' + InputBox('Капча', 'Ââåäèòå öèôðû ñ êàðòèíêè', ''));
  sl.Add('back_url=');
  sl.Add('sign_up_agreement=1');
  sl.Add('sing_up_submit=1');
  sl.Add('x=76&y=16');
  IdHTTP.Post('http://smotri.com/registration/submit',sl);
  sl.Free;
end;

[Seven[up]]

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

Вот полностью рабочий код

function Reg(IdHTTP:TIdHTTP;Image:TImage;email,pass : string): string;
var
  ms : TMemoryStream;
  sl:TStringList;
  j : TJPEGImage;
begin
  sl := TStringList.Create;
  sl.Add('value=' + email);
  IdHTTP.Post('http://smotri.com/profile/ajax/check/submit/field/-/sign_up_email/signup_fast/',sl);
  sl.Clear;
  sl.Add('signup_fast-hint53=1&sign_up_email='+ email +'&back_url=&sing_up_fast=1');
  IdHTTP.Post('http://smotri.com/registration/submit',sl);
  ms := TMemoryStream.Create;
  IdHTTP.Get('http://smotri.com/profile/captcha',ms);
  ms.Seek(0,0);
  j := TJPEGImage.Create;
  j.LoadFromStream(ms);
  ms.Free;
  Image.Width := j.Width;
  Image.Height := j.Height;
  Image.Picture.Assign(j);
  j.Free;
  sl.Clear;
  sl.Add('signup-hint53=1');
  sl.Add('sign_up_email='+ email);
  sl.Add('sign_up_login='+ Copy(email,1,Pos('@',email)-1));
  sl.Add('sign_up_password='+ pass);
  sl.Add('sign_up_nick='+ Copy(email,1,Pos('@',email)-1));
  sl.Add('signup_key=' + InputBox('Капча', 'Ââåäèòå öèôðû ñ êàðòèíêè', ''));
  sl.Add('back_url=');
  sl.Add('sign_up_agreement=1');
  sl.Add('sing_up_submit=1');
  sl.Add('x=76&y=16');
  IdHTTP.Post('http://smotri.com/registration/submit',sl);
  sl.Free;
end;

большое спасибо)