Капча

[Boy7407]

Я новичок , и вообще пишу первую программу.
Мне нужно , что бы капча выводилась при запуске программы.
Т.е обычная авторизация.
Нашел две капчи
https://l2.overworld.su/captcha/
https://l2.overworld.su/captcha/?0.09601822070382149

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Edit2: TEdit;
    BitBtn1: TBitBtn;
    IdHTTP1: TIdHTTP;
    Edit3: TEdit;
    Image1: TImage;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Memo1: TMemo;
    procedure BitBtn1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.BitBtn1Click(Sender: TObject);
var
LoginData, Response: TStrings;
begin
LoginData := TStringList.Create;
Response := TStringList.Create;
try
LoginData.Add('login='+Edit1.Text);
LoginData.Add('password='+Edit2.Text);
LoginData.Add('login=submit');
LoginData.Add('x=0');
LoginData.Add('y=0');
Response.Text := IdHTTP1.Post('https://l2.overworld.su/account/login/',LoginData);
if Pos('logout',Response.Text)>0 then
ShowMessage('Success!')
else
ShowMessage('Epic fail =(');
finally
LoginData.Free;
end;
end;

begin
end.

Нужно что бы капча отображалась в "Image1"
Буду очень благодарен кто поможет!)

[fucil]

я тебе уже дал ответ http://www.programmersforum.ru/showthread.php?t=182603