Авторизация на сайте ...

[sxcine]

Пишу код авторизации на сайте http://partners.1smsp.ru/.

var Data:TStringList;
s:string;
begin
idhttp1.Get('http://partners.1smsp.ru/');
data:=tstringlist.Create;
data.Add('user_login='+edit1.Text);
data.Add('user_pass='+edit2.Text);
//data.Add('user_input=Вход');
s:=idhttp1.Post('http://partners.1smsp.ru/input.php', data);
 data.Free;
  if pos('Exit', s)>0 then showmessage('Все ок') else showmessage('Не удачно.');

и у меня никогда не авторизовывается, где ошибка ?

[Квэнди]

куки подключены ? редиректы включены ?

[kangreon]

Замените

pos('Exit', s)

на

pos(edit1.text, s)

А код полностью рабочий.

[sxcine]

Квэнди, всё было включено.
kangereon, спасибо.