var
a:string;
     S:TFileStream;
begin
idhttp1.HandleRedirects:=true; // разрешаем перенаправление
a:=IdHTTP1.Get(memo2.text); // посылаем get запрос на капчу из memo2
    S:=TFileStream.Create('captcha.jpg',FMCreate);    
    IdHTTP1.Get(memo2.text+'.jpg', S);   // получаем капчу из ссылки в memo2
     s.free; // освобождаем память, чтобы загружать новую капчу
Image1.Picture.LoadFromFile('captcha.jpg'); // загружаем капчу image
label1.Visible:=false;
    timer4.enabled:=false;
       end;

// тут должно быть распознавание капчи, но пока это описывать не буду.

var
a8:  variant;
    begin
     a8:=webbrowser1.oleobject.document.getelementbyid('agreed');  // я принимаю условия соглашени
     WebBrowser1.OleObject.Document.GetElementByID('agreed').Click;
     timer1.Enabled:=true;
timer6.enabled:=false;

unit Unit1;

interface

uses
     Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
     Dialogs, StdCtrls, OleCtrls, SHDocVw, UrlMon, IdBaseComponent,
     IdComponent, IdTCPConnection, IdTCPClient, ExtCtrls,
     IdHTTP, AntiGate, XPMan, mshtml, jpeg;

type

     TForm1 = class(TForm)
       WebBrowser1: TWebBrowser;
       Button1: TButton;
       Memo1: TMemo;
       Timer1: TTimer;
       IdHTTP1: TIdHTTP;
       Image1: TImage;
       Timer2: TTimer;
       Memo2: TMemo;
       Timer3: TTimer;
       Edit1: TEdit;
       Edit2: TEdit;
       Edit3: TEdit;
       Edit4: TEdit;
       Timer4: TTimer;
       Timer6: TTimer;
       Label1: TLabel;
       XPManifest1: TXPManifest;
       Timer5: TTimer;

       procedure Button1Click(Sender: TObject);
       procedure FormCreate(Sender: TObject);
       procedure Timer1Timer(Sender: TObject);
       procedure Timer2Timer(Sender: TObject);
       procedure Timer3Timer(Sender: TObject);
       procedure Timer4Timer(Sender: TObject);
       procedure Timer6Timer(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);
begin
timer3.Enabled:=true;  // включаем таймер 3
     end;

procedure TForm1.FormCreate(Sender: TObject);
begin
    webbrowser1.Navigate('http://samp-rp.su/ucp.php?mode=register');
timer6.enabled:=true;
      end;

procedure TForm1.Timer1Timer(Sender: TObject);
var
Doc:IHTMLDocument2;
S:string;
begin
while WebBrowser1.ReadyState<READYSTATE_COMPLETE do
begin
Application.ProcessMessages;
end;
Doc:= WebBrowser1.Document as IHTMLDocument2;
s:=doc.body.innerHTML;
Memo1.Text:=s;
timer2.enabled:=true;
timer1.enabled:=false;

end;

procedure TForm1.Timer2Timer(Sender: TObject);
var
stroka:string; // Объявляем переменную типа стринг.
begin
memo2.text:=memo1.Lines[97]; // в этой строке находится капча
stroka:=Pars('src="',memo2.Text,'"'); // Выполняем парсинг, от  src= в 97 строке
Memo2.Clear; // Отчищаем мемо.
Memo2.Lines.Add(stroka); // Выводим результат
timer4.enabled:=true;
    timer2.Enabled:=false;
end;

procedure TForm1.Timer3Timer(Sender: TObject);
var
a, a1, a2, a3, a4, a5, a6: variant;

    begin

     a1:=webbrowser1.oleobject.document.getelementbyid('username');  // заполняем поле с ником
     a1.value:=edit1.text;
        a2:=webbrowser1.oleobject.document.getelementbyid('email'); // понятно
     a2.value:=edit2.text;
      a3:=webbrowser1.oleobject.document.getelementbyid('email_confirm'); //понятно
     a3.value:=edit2.text;
      a4:=webbrowser1.oleobject.document.getelementbyid('new_password'); // пароль
     a4.value:=edit3.text;
     a5:=webbrowser1.oleobject.document.getelementbyid('password_confirm');
     a5.value:=edit3.text;
       a6:=webbrowser1.oleobject.document.getelementbyid('recaptcha_response_field');// капча
     a6.value:=edit4.text;

     a:=webbrowser1.oleobject.document.getelementbyid('submit');     // нажимаем регистрация

     WebBrowser1.OleObject.Document.GetElementByID('submit').Click;

     timer3.enabled:=false;
     timer6.enabled:=true;
     label1.visible:=true;
      webbrowser1.Navigate('http://samp-rp.su/ucp.php?mode=register');
Image1.Picture := nil;
end;

procedure TForm1.Timer4Timer(Sender: TObject);
var
a:string;
     S:TFileStream;
begin
idhttp1.HandleRedirects:=true; // разрешаем перенаправление
a:=IdHTTP1.Get(memo2.text);
    S:=TFileStream.Create('captcha.jpg',FMCreate);
    IdHTTP1.Get(memo2.text+'.jpg', S);   // получаем капчу из ссылки в memo2
     s.free;
Image1.Picture.LoadFromFile('captcha.jpg');
label1.Visible:=false;

    timer4.enabled:=false;

       end;

procedure TForm1.Timer6Timer(Sender: TObject);
var
a8:  variant;
    begin
     a8:=webbrowser1.oleobject.document.getelementbyid('agreed');  // я принимаю условия соглашени
     WebBrowser1.OleObject.Document.GetElementByID('agreed').Click;
     timer1.Enabled:=true;
timer6.enabled:=false;
end;
end.