[Помогите!] Что тут не так (Darkorbit, вход по логину)

[megatronx]

var
  Post: TStringList;
begin
  Reg := TRegExpr.Create;
  Post := TStringList.Create;
  Post.Add('loginForm_default_username='+NIK.Text);
  Post.Add('loginForm_default_password='+PASS.Text);
  Post.Add('loginForm_default_login_submit=Вход');
  S := HTTP.Post('http://darkorbit.bigpoint.com/?locale=ru&aid=488&aip=',Post);
  Reg.InputString := Utf8ToAnsi(S);
  Reg.Expression := '"http://'+SRV.Text+'.darkorbit.bigpoint.com/GameAPI.php?req=(.*?)"';
  if Reg.Exec
    then
      begin
        S := HTTP.Get('http://'+SRV.Text+'.darkorbit.bigpoint.com/GameAPI.php?req='+Reg.Match[1]);
        Reg.InputString := Utf8ToAnsi(S);
        Reg.Expression := '<title>(.*?)</title>';
        if Reg.Exec
          then
            if Reg.Match[1] = 'www.DarkOrbit.com'
              then
              MessageBox(0,'Вход был выполнен успешно!','Внимание',MB_OK+MB_ICONINFORMATION)
              else MessageBox(0,'Войти не удалось!','Ошибка!',MB_OK+MB_ICONERROR)
          else
            MessageBox(0,'Войти не удалось!','Ошибка!',MB_OK+MB_ICONERROR);
      end
    else
      MessageBox(0,'Войти не удалось!','Ошибка!',MB_OK+MB_ICONERROR);
  Post.Free;
  Reg.Free;
end;

Он просто берет и не входит, скорее всего неправильно отправляю запрос.

[АзЕсмьЦарь]

Не совсем понял эту строчку. А чему равно Reg.Match[1]?
S := HTTP.Get('http://'+SRV.Text+'.darkorbit.bigpoint.com/GameAPI.php?req='+Reg.Match[1]);

[megatronx]

Цитата: Сообщение от АзЕсмьЦарь Не совсем понял эту строчку. А чему равно Reg.Match[1]? S := HTTP.Get('http://'+SRV.Text+'.darkorbit.bigpoint.com/GameAPI.php?req='+Reg.Match[1]);

Reg.Match[1] - это значение (.*?)

Ошибка или в запросе, или в вот этой строчке:
S := HTTP.Post('http://darkorbit.bigpoint.com/?locale=ru&aid=488&aip=',Post);

[megatronx]

Уже все понял, ошибка была в поиске req