Как добавить капчу в программу?

Всем доброго времени суток,опять я обращаюсь к знающим людям и прошу вашей помощи собственно мне нужно добавить в мою программу капчу,помогите плз
unit Unit1;

interface

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

type
 TForm1 = class(TForm)
 Edit1: TEdit;
 Edit2: TEdit;
 Memo1: TMemo;
 Button1: TButton;
 IdHTTP1: TIdHTTP;
 procedure Button1Click(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
Data: TStringlist;
HTML, go: string;
Pars1, Pars2: string;
begin
go:= 'http://turbobit.net/user/login';
Data:=TStringlist.Create;
Data.Add('user[login]='+Edit1.Text);
Data.Add('user[pass]='+Edit2.Text);
Data.Add('user[submit]=Войти');
HTML:=IdHTTP1.Post(go, data);
if pos('href="user/logout"', HTML)<>0 then
begin
Memo1.Lines.Add('Мы авторизовались');
Pars1:=Pars('На счету: ',HTML,'USD</div>');
Memo1.Lines.Add('На счету'+ Pars1 + 'USD');
end
else
begin
Memo1.Lines.Add('Ошибка авторизации');
end;
end;

end.
сам код капчи (нашел в html коде)
function updateCaptchaImage() {
		var img = $('.captcha_login img');
		var src = img.attr('src');
		var slashPos = src.lastIndexOf('/');
		var randCount = Math.round(Math.random()*(90000000000 - 10000000000)) + 10000000000;
		var src = img.attr('src', src.slice(0, slashPos)+'/'+randCount);
1 ответ

ап,помогите пожалуйста