Авторизация на ucoz'e

[artbotva]

Всем доброго времени!
В общем проблема такова не как не получается залогиниться на сайте под ucoz, в http://programmersforum.ru/showthread.php?t=160876 на этом же форуме, эту проблему вроде как решили, но там суть программы совсем другая...
Мне нужно чтобы было 2 Едита( емайл, пароль), и кнопка войти...При успешной авторизации открывается Form2, при не успешной внизу в Label'e пишется "Неправильная пара" Вот так вот...)

Вот вроде как мне один человек попытался помочь, но там при любом раскладе пишется "Good" ( даже когда неправильно )

procedure TForm1.Button1Click(Sender: TObject);
var
  ParamList: TStringList;
  res: string;
begin
  ParamList:=TStringList.Create;
  with ParamList do begin
    Add('user='+Edit1.Text);
    Add('password='+Edit2.Text);
    Add('rem=1');
    Add('a=1');
    Add('ajax=1');
    Add('rnd=557');
    Add('_tp_=xml');
  end;
  try
    res:=Utf8ToAnsi(IdHTTP1.Post('http://ucoz.ucoz.ru', ParamList));
    if pos('Âûõîä ñ ñàéòà', res)>=0 then
    ShowMessage('Good')
    else
    ShowMessage('Bad');
  except
    ShowMessage('Bad');
  end;
  ParamList.Free;
end;

В общем прошу помощи...)
Заранее спасибо

[kta87]

Ну вы посмотрите на исходный код вот этой вот страницы view-source:http://login.unet.com/?site=0ucoz&ref= Там 3 параметра: "type="text" name="email"", "type="password" name="pass"", value="0" - если Чужой компьютер и value="1" - если свой. потом Get запросом передавайте нужные параметры на сервер сайта, далее получайте ответ и по нему определяйте авторизация прошла успешно или нет. Тут я бы не стал заворачиваться и просто сравнивал коды вот и все!
Если не получится скиньте исходик на email + данные для авторизации верные!