Не удается зарегистрироваться

[NNN32]

Написал программу для автоматической регистрации. Кажется все правильно, но при вводе правильных данных не производится автоматическая регистрация. Что делать ???!!!!!

var StrPage:string;
Data:TstringList;
begin
idhttp1.HandleRedirects:=true;
Data:=TstringList.Create;
Data.Add('e3c682b3da00c54d48035359a 450524d=1');
Data.Add('login='+Edit1.Text);
Data.Add('pwd='+Edit2.Text);
StrPage:=idhttp1.Post('http://neverfate.ru/login.php', Data);
if Pos('chat_navigate', StrPage)<>0 then
Label3.Caption:='Вошел'
else Label3.Caption:='не вошел';
Data.Free;
end;

кто может скомпилировать программу
На форму надо кинуть idHTTP, 2 Edit, Memo, button
для проверки используйте пример
логин = PCR пароль=000000000000

Delphi 7
Indy 10.0.52

From artemavd: Орфография - ужаснах.

Что делать ???!!!!!

Для начала подучить русский язык.

[Denager]

Data.Add('e3c682b3da00c54d48035359a 450524d=1');

Первый параметр генерируется сервером, вы его парсите? Или просто статикой добавляете?

[NNN32]

Ви виявились праві ця частина кода змінювалась -'49dfhasddf2334y(f)d565'-,-'49dfhasddf2334y(d)d565'- і тому подібне. Я модефікував код програми і регестрація відбулася.

procedure TForm1.Button1Click(Sender: TObject);
var StrPage,T:string;
Data:TstringList;
i,j:integer;
begin
i:=0;
j:=0;
idhttp1.HandleRedirects:=true;
StrPage:=idhttp1.Get('http://www.neverfate.ru/index.php');
Data:=TstringList.Create;
i:=pos('<form name=forml method=post action=login.php><input type=hidden',StrPage);
repeat
i:=i+1;
if StrPage[i]='"'
then begin
i:=i+1;
j:=1;
repeat
t:=t+StrPage[i];
i:=i+1;
until StrPage[i]='"';
end;
until j=1;
Label4.Caption:=t;
Data.Add(T+'=1');
Data.Add('login='+Edit1.Text);
Data.Add('pwd='+Edit2.Text);
StrPage:=idhttp1.Post('http://neverfate.ru/login.php', Data);
if Pos('"REFRESH"', StrPage)<>0 then
Label3.Caption:='Çàëîãèíèëèñü'
else Label3.Caption:='Íå çàëîãèíèëèñü';
Data.Free;
end: