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

[genom_x]

Помогите люди добрые написать авторизацию на http://javagala.ru/ пишу всё как по видео авторизация на однокласниках ну не получатся помогите кому не трудно
вот форма
<form action='/auth.php' name='login' method='post'>
коды для авторизации

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

исходник
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.

[aydar]

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

[aydar]

Вот моя авторизация на рамблере подстрой подсебя
procedure TForm1.Button1Click(Sender: TObject);
var
params : tstringlist;
login,mail,s:string;
f:TextFile;

begin
login:='1aydar1992';
params := TStringList.Create;
AssignFile(f,'bazamail.txt');
reset(f);
while not eof(f) do
begin
readln(f,login);
try
params.Add('back=http://mail.rambler.ru/mail/startpage');
params.Add('login='+login);
params.Add('domain=rambler.ru');
params.Add('passw=12345sdfsdfq');
memo1.Text := IdHTTP1.Post('http://id.rambler.ru/script/auth.cgi',params);
finally
if Pos('logout',memo1.Text)>0 then
memo2.text:=login else memo3.text:=login;
params.Free;
end;
end;
CloseFile(f);
end;
end.

[Sunstrider]

Вот моя авторизация на рамблере подстрой подсебя
Какие компоненты на форму выносить ?

[fenixelite]

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;

Мне кажется вся проблема с этом:
пишу всё как по видео авторизация на однокласниках

[Sunstrider]

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

[genom_x]

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