Проблема авторизации на сайте

[Terikon]

Скажите где моя ошибка, никак нимагу авторизироваться

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    GroupBox1: TGroupBox;
    SpeedButton1: TSpeedButton;
    SpeedButton2: TSpeedButton;
    Edit1: TEdit;
    Edit2: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    Image1: TImage;
    Bevel1: TBevel;
    PngImageList1: TPngImageList;
    IdHTTP1: TIdHTTP;
    IdCookieManager1: TIdCookieManager;
    procedure SpeedButton1Click(Sender: TObject);
    procedure SpeedButton2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  t: string;
implementation

{$R *.dfm}

procedure TForm1.SpeedButton1Click(Sender: TObject);

Var
s,sres:string;
Captcha:TMemoryStream;

begin
s:=idHTTP1.Get('http://www.cproxy.com/Default.aspx?pg=13&lg=3');
sres:=copy(s,pos('ctl00_ContentPlaceHolderMain_ucRF_hidReg',s)+48,length(s)-pos('ctl00_ContentPlaceHolderMain_ucRF_hidReg',s)+48);
sres:=copy(sres,2,pos('/>',sres));
sres:=copy(sres,1,length(sres)-4);
t:=(sres);
sres:=copy(s,pos('"ctl00_ContentPlaceHolderMain_ucRF_imgRegPol"',s)+50,length(s)-pos('"ctl00_ContentPlaceHolderMain_ucRF_imgRegPol"',s)+50);
sres:=copy(sres,2,pos('" border',sres));
sres:=copy(sres,1,length(sres)-2);
captcha:=TMemoryStream.Create;
idhttp1.Get('http://www.cproxy.com/'+sres,captcha);
captcha.SaveToFile('captcha.png');
Image1.Picture.LoadFromFile('captcha.png');

end;

procedure TForm1.SpeedButton2Click(Sender: TObject);

Var
tr : TstringList;

begin
tr:=TstringList.Create;
tr.Add('ctl00$ContentPlaceHolderMain$ucRF$hidReg='+t);
tr.Add('ctl00$ContentPlaceHolderMain$ucRF$txtRegEmail='+Edit1.Text);
tr.Add('ctl00$ContentPlaceHolderMain$ucRF$txtRegPol='+Edit2.Text);
tr.Add('ctl00$ContentPlaceHolderMain$ucRF$btnRegSubmit=Sign Up');
idHTTP1.Post('http://www.cproxy.com/Default.aspx?pg=13&lg=3',tr);
end;

end.