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

[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('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/signup.php',params);
if Pos('Спасибо за регистрацию',responseres.Text)>0 then
  ShowMessage('Регистрация завершена успешно');
finally
params.free;
responseres.free;
end;
end;

Есть ли ошибки?
Как сделать checkbox.checked:=true?
Про каптчу говорить не нужно, литературу по нему почитаю попозже, таковая имеется.
Спасибо.

[ramzes777]

Все еще актуально))))