Ошибка при входе mail.yandex.ru

[Alest]

Всем доброе время суток!
Здесь я что то упустил, возможно Cookies.. в итоге ошибка входа

procedure TForm1.Button1Click(Sender: TObject);
var
  Header, Structure: TStringList;
  s1: String;
begin
  Structure := TStringList.Create;
  Header := TStringList.Create;
try
  Header.Text := idhttp.Get('http://mail.yandex.ru/');
  s1:=copy(Header.Text,pos('<input type="hidden"',Header.Text)+43,PosEx('"', Header.Text,
                  Pos('<input type="hidden"', Header.Text)+46)-Pos('<input type="hidden"',Header.Text)-43);
  Structure.Add('login='+Edit1.Text);
  Structure.Add('passwd='+Edit2.Text);
  Structure.Add('retpath='+s1);
  Memo2.Text := Structure.Text;
  Memo1.Text := UTF8Decode(idhttp.Post('http://passport.yandex.ru/passport?mode=auth', Structure));
  if Pos('Входящие', Memo1.Text)>0 then
    ShowMessage('Вы вошли успешно!')
  else
    ShowMessage('Ошибка при входе!');
finally
  Structure.Free;
  Header.Free;
end;
end;

[Alest]

Точней не ошибка.. выбрасывает с нужной мне страницы на типо того что описано ниже.... подскажите что где я упустил?

Автоматическое перенаправление на сайт невозможно. Это означает, что автоматически перенаправить ваш браузер на данный сайт нельзя по одной из двух причин:Этот сайт чужой, и мы полагаем, что он принадлежит злоумышленникам....

и тд..