Авторизация на LItitBit

[J-Max]

Пытаюсь авторизоваться на LItitBit

params:=TStringList.Create;
responseres:=TStringList.Create;
try
params.Add('host=letitbit_net');
params.Add('log='+Edit1.Text);
params.Add('pas='+Edit4.Text);
params.Add('inout=Sign+In');
responseres.Text:=idhttp1.Post('http://wm.letitbit.net/signin.php',params);
if Pos('logout',responseres.Text)>0 then
  ShowMessage('Авторизовались!');
finally
params.free;
responseres.free;

Что не так? табличка Авторизовались! не выскакивает.

У нас принято оформлять код специальным тэгом - при помощи кнопочки "#".
Только...
И не значком #.
И не РНР-кодом.
И не значком цитаты.
И не собственными "ручками".
Рекомендую. Помимо общих правил форума есть и дополнения к ним в каждом разделе...
Модератор