[arantir92]

Что тут может быть не так? вроде как ошибок нет, а не логинит....

Код:

begin
 idhttp1.HandleRedirects:=true;
// StrPage:=idhttp1.Get('------------------------------------');
 //ssylka:=Pars('<form action="', StrPage,'"');
  ssylka:='-----------------------------------';

  Data:=TStringList.Create;
  Data.Add('form_name='+Edit1.Text);
  Data.Add('form_pass='+Edit2.Text);
  Data.Add('form_log=Вход');

  StrPage:=idhttp1.Post(ssylka, Data);
  if Pos('exit', StrPage)<>0 then
  WebBrowser1.Navigate('хххххххххххххххххххххххххххххххххххххххх')
  else
   WebBrowser1.Navigate('ууууууууууууууууууууу');
  Data.Free;
end;

Админ: Пользуемся тегами для оформления кода!