каптча

procedure TForm1.btn4Click(Sender: TObject);
VAR
  get: string;
  img: string;
  captcha: TMemoryStream;
  JPEG: TJPEGImage;
  post: TStrings;
 
 
begin
                              captcha:= TMemoryStream.Create;
  idhtp1.CookieManager:= idckmngr1;
 idhtp1.Request.Host:='cfire.mail.ru';
 idhtp1.Request.UserAgent:='Mozilla/5.0 (Windows NT 6.1) AppleWebKit/537.11 (KHTML, like Gecko) Chrome/23.0.1.0 Safari/537.11';
get:= idhtp1.Get('http://cfire.mail.ru/auth/register/');
img:= 'http://cfire.mail.ru/code.php?'+Pars('<img src="/code.php?',get, '" id="');
idhtp1.Get(img, captcha);
captcha.SaveToFile('img.jpg');
 
 
 
end;
 
procedure TForm1.btn5Click(Sender: TObject);
var
  post: TStrings;
  pos: string;
  str: string;
begin
 
  idhtp1:= TIdHTTP.Create(nil);
  idhtp1.CookieManager:= idckmngr1;
 post:= TStringList.Create;
 idhtp1.Request.Host:='cfire.mail.ru';
 idhtp1.Request.UserAgent:='Mozilla/5.0 (Windows NT 6.1) AppleWebKit/537.11 (KHTML, like Gecko) Chrome/23.0.1.0 Safari/537.11';
post.Add('email='+edt1.Text);
post.Add('extpass');
post.Add('login='+edt2.Text);
post.Add('pass1='+edt3.text);
post.Add('code='+edt4.text);
str:= Idhtp1.Post('http://cfire.mail.ru/auth/register/', post);
mmo1.Text:= str;
//mmo1.Lines.SaveToFile('src.TXT');
 
end;