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

[TeGene]

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

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);

[TeGene]

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