Не проходит логическое условие при авторизации.

[nikolas0]

login :=Edit1.Text;
  try
    Http := TIdHTTP.Create(Self);
    Data := TStringList.Create;
    Http.HandleRedirects := true;

    Http.Request.Host:='localhost';
    Http.Request.UserAgent:='brayzer/5.0 (Windows; U; Windows NT 5.1; ru; rv:1.9.0.10) Gecko/2009042316 Firefox/3.0.10';
    Http.Request.Accept:='text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8';
    Http.Request.AcceptLanguage:='ru,en-us;q=0.7,en;q=0.3';
    Http.Request.AcceptCharSet:='windows-1251,utf-8;q=0.7,*;q=0.7';
    Http.Request.Referer:='http://localhost/auth_script/auth.php';

    Data.Add('value=Login');
    Data.Add('auth=login');
    Data.Add('login=' +login);
    Data.Add('password=' +password);

    StrPage := Http.Post('http://localhost/auth_script/auth.php', Data);
  finally
    Data.Free;
    Http.Free;
  end;

  if Pos('Неверный логин или пароль!',StrPage) <> 0 then
    begin
       memo2.Text :=StrPage;
    end

Держите!
удачи

[vebster35]

nikolas0 спасибо но еще бы скрипт пхп для денвера чтобы т.с. локально потестить и если вас не затруднит выложите плз и его т.е. /auth_script/auth.php

[nikolas0]

вот держи!у меня их две версии елсли эта не та то отпишись...
http://q32.ru/2795

[vebster35]

Спасибо, очень пригодился