Проблема с авторизацией

[DKENT]

Здраствуйте!
Вообшем есть сайт нужно на нем авторизаваться програмно.

var
StrPage,ssylka:string;
    Data:TstringList;
begin
idhttp1.HandleRedirects:=true;
 StrPage:=idhttp1.Get('http://mysite.ru');
 ssylka:='http://mysite.ru/login/';

 Data:=TstringList.Create;
 Data.Add('login='+sEdit1.Text);
 Data.Add('password='sEdit2.Text);
 Data.Add('remember=on');
 Data.Add('submit_login=');
 StrPage:=idhttp1.Post(ssylka, Data);

 if Pos('tuning', StrPage)<>0 then
 begin
 showmessage('1');
 end
 else
 showmessage('2');
   Data.Free;
end;

Условие проверяет tuning слово в странице!
Но дело в том что после удачной авторизации идет редирект на главную страницу сайта mysite.ru
Вот как написать в условии
Код:

if (Редирект на http://mysite.ru/) then
begin
showmessage('Авторизовались');
end
else
showmessage('Неавторизовались');
end;