Автоматическая регистрация на делфи

[ramzes777]

Добрый день! Я прочитал эту статью http://programmersforum.ru/showthread.php?t=38803 и попробовал сделать наброски кода авторегистрации на трекере.

Вот что получилось:

Сайт-пример - x-torrents.org

procedure TForm5.btn1Click(Sender: TObject);
var params,responseres:tstringlist;
begin
params:=TStringList.Create;
responseres:=TStringList.Create;
try
params.Add('agree=yes');  {отметка чекбокса что согласился с правилами}
responseres.Text:=http1.Post('http://x-torrents.org/signup.php',params); {отправка этого}
params.Clear;
params.Add('wantusername=programmers');
params.Add('wantpassword=123456');
params.Add('passagain=123456');
params.Add('email=user@mail.ru');
params.Add('year=1990');
params.Add('month=06');
params.Add('day=24');
params.Add('country=3');
responseres.Text:=http1.Post('http://x-torrents.org/takesignup.php',params);
if Pos('Спасибо что зарегестрировались',responseres.Text)>0 then
  ShowMessage('Регистрация завершена успешно');
finally
params.free;
responseres.free;
end;
end;

Есть ли ошибки?

Спасибо.

[ramzes777]

При выполнении этого выдает ошибку:
Project mailauth.exe raised exsception class EIdSocket Error with message Socket Error #10022 Invalid argument.'.Process stopped