Авторизация на ГЗ

Помогите люди добрые написать авторизацию на http://javagala.ru/ пишу всё как по видео авторизация на однокласниках ну не получатся помогите кому не трудно
вот форма

Code:

<form action='/auth.php' name='login' method='post'>

коды для авторизации

Code:

MASTER_KING;WS79J9NB50
///SPONSOR///;w9wnnr1i
[{SARUMAN}];HDS9NKX9
Мс-васян-;DTVZFVHLKK
x_CoRpse_x;76kr4ufq5t
Ярик092;8CYQY7BEIB
jbpvv46j9v
DTVZFVHLKK
6ohbjouttz
Z6RBOV359P
p1uubodt
vuxbyqrxv1
EMAULSBLN9
loqj7j84op

исходник

Code:

unit Unit1;


interface

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

type
  TForm1 = class(TForm)
    Button1: TButton;
    Edit1: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    Edit2: TEdit;
    Label3: TLabel;
    IdHTTP1: TIdHTTP;
    Edit3: TEdit;
    Edit4: TEdit;
   function Pars(T_, ForS, _T: string): string;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var StrPage, ssylka:string;
    Data:TstringList;
begin
 idhttp1.HandleRedirects:=true;
 StrPage:=idhttp1.Get('http://javagala.ru/');
 ssylka:=Pars('<form action='"',StrPage,'"');
 Data:=TstringList.Create;
 Data.Add('nick='+Edit1.Text);
 Data.Add('recover='+Edit2.Text);
  Data.Add('x='+Edit3.Text);
 Data.Add('y='+Edit4.Text);

 StrPage:=idhttp1.Post(ssylka, Data);
 if Pos('exit', StrPage)<>0 then
  Label3.Caption:='Залогинились'
 else Label3.Caption:='Не залогинились';
 Data.Free;
end;

function TForm1.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;


end.

  

 

ну во первых процедура парс никчему, щас попробую написать тебе

 

Вот моя авторизация на рамблере подстрой подсебя

 

Какие компоненты на форму выносить ?

 

PHP:

var
 par:tstringlist;
begin
   par:=TStringList.Create;
   par.Add('nick=Мс-васян-');
   par.Add('recover=DTVZFVHLKK');
   memo1.Text:=idhttp2.Post('http://javagala.ru/auth.php',par);
   if Pos('анкета',memo1.Text) <> 0 then ShowMessage('olo');
end;

Мне кажется вся проблема с этом:

 

Тс трафик анализатор в рукой в бой

 

Огромное спасибо всем за помощь всё разобрался.