unit Unit1;

interface

uses
   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
   Dialogs, StdCtrls, IdBaseComponent,jpeg, IdComponent, IdTCPConnection,
   IdTCPClient, IdHTTP, ExtCtrls;

type
   TForm1 = class(TForm)
     Edit1: TEdit;
     Button1: TButton;
     IdHTTP1: TIdHTTP;
     Image1: TImage;
     Button2: TButton;
     lbl1: TLabel;
     mmo1: TMemo;
     edt1: TEdit;
     lbl2: TLabel;
     procedure Button1Click(Sender: TObject);
     procedure Button2Click(Sender: TObject);
   private
     { Private declarations }
   public
     { Public declarations }
   end;

var
   Form1: TForm1;

implementation

{$R *.dfm}

function Pars(T_, ForS, _T: string): string;
var
   a, b: integer;
begin
   Result := '';
   if (T_ = '') or (ForS = '') or (_T = '') then
     Exit;
   a := Pos(T_, ForS);
   if a = 0 then
     Exit
   else
     a := a + Length(T_);
   ForS := Copy(ForS, a, Length(ForS) - a + 1);
   b := Pos(_T, ForS);
   if b > 0 then
     Result := Copy(ForS, 1, b - 1);
end;

procedure TForm1.Button1Click(Sender: TObject);
var p, i:string;
captcha:TStream;
jpg:TJPEGImage;

begin
jpg:=TJPEGImage.Create;
p:=Form1.idhttp1.get('http://nextmail.ru/reg/obligatory.phtml?r1=91&i=.');
i:=(Pars('<img src="/au/code.phtml?u=',p,'"'));
captcha:=TStringStream.Create(IdHTTP1.Get('http://nextmail.ru/au/code.phtml?u='+i+'.jpg'));
Edit1.Text:=i;
jpg.LoadFromStream(captcha);
Image1.Picture.Assign(jpg);
end;

procedure TForm1.Button2Click(Sender: TObject);
var
  PostData:TStringList;
begin
     PostData.Add('todo=obliginfo');
       PostData.Add('from_id='+ Edit1.Text);
     PostData.Add('name=klink993');
       PostData.Add('domain=nextmail.ru');
         PostData.Add('password=11223320');
           PostData.Add('pwdconf=11223320');
             PostData.Add('fulname=аТЙК');
               PostData.Add('sex=Male');
               PostData.Add('bday=2011-06-03');
               PostData.Add('region=29');
               PostData.Add('regcode='+edt1.Text);
               PostData.Add('agreed=yes');
               PostData.Add('question=уЧПК УПВУФЧЕООЩК ЧПРТПУ(РПМЕ ЧЧПДБ ОЙЦЕ).');
               PostData.Add('manualquest= ');
               PostData.Add('answer= ');
               PostData.Add('email= ');
               PostData.Add('timezone=3');
               PostData.Add('antibot=4776');
     IdHTTP1.Post('http://nextmail.ru/reg/obligatory.phtml?r1=91&i=.nextmail_oru.',PostData);
end;