Нужна помошь!

Не проходит авторизация на liex.
Вот код, подскажите. мб что не правильно написал

Спойлер: тут код

var
Form1: TForm1;
Post: TStringList;
result: String;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
Post: TStringList;
result: String;
begin
Post := TStringList.Create;
Post.Add('action=login');
//Post.Add('1=');
Post.Add('login=' + Edit1.Text);
Post.Add('password=' + Edit2.Text);
//Post.Add('2=');
//Post.Add('3=');
//Post.Add('4=');
//Post.Add('5=');
result := IdHTTP1.Post('http://www.liex.ru/userAction?action=submit', Post);
Memo1.Text := result;

if Pos('action=logout',result)>0 then
MessageDlg('Авторизация прошла успешно', mtInformation, [mbOK],1)
else
MessageDlg('Авторизация не прошла', mtInformation, [mbOK],0);
end;
end.

 

Post: TStringList;
result: String;
зачем прописал в вар 2 раза?

if Pos('action=logout',result)>0 then //нужно писать <>0(не равно нулю)(существует)

а вместо MessageDlg сделай ShowMessage('blablabla');

 

не проходит авторизация!

 

дебагай

 

ничего, помогите а!