Неверный результат операции "больше или равно"

i - 1 >= 0

if (i - 1 >= 0)

void __fastcall TForm1::logonClick(TObject *Sender)
{
  String title = "Проверка баланса (portal.center.rt.ru)";
  Caption = title;
 
  DWORD start = GetTickCount();
 
  sets->Click();
 
  try
  {
    TIdHTTP *HTTP = new TIdHTTP(NULL);
    TMemoryStream *MS  = new TMemoryStream;
    TIdSSLIOHandlerSocketOpenSSL *ssl = new TIdSSLIOHandlerSocketOpenSSL(NULL);
    TStringList *SL = new TStringList;
    TRegExpr *RegExpr = new TRegExpr;
    HTTP->HandleRedirects = 1;
    HTTP->IOHandler = ssl;
    SL->Add("LoginPortlet_4{actionForm.username}="+Login->Text);
    SL->Add("LoginPortlet_4{actionForm.password}="+Password->Text);
    SL->Add("LoginPortlet_4{actionForm.desktop}=PrivateClient_portal_main_page");
 
    String reg = "tula";
    switch (region->ItemIndex + 1)
    {
      case 1: reg = "belgorod"; break;
      case 2: reg = "bryansk"; break;
      case 3: reg = "vladimir"; break;
      case 4: reg = "voronezh"; break;
      case 5: reg = "ivanovo"; break;
      case 6: reg = "kaluga"; break;
      case 7: reg = "kostroma"; break;
      case 8: reg = "kursk"; break;
      case 9: reg = "lipetsk"; break;
      case 10: reg = "mosoblast"; break;
      case 11: reg = "orel"; break;
      case 12: reg = "ryazan"; break;
      case 13: reg = "smolensk"; break;
      case 14: reg = "tambov"; break;
      case 15: reg = "tver"; break;
      case 16: reg = "tula"; break;
      case 17: reg = "yaroslavl"; break;
      default: reg = "tula";
    }
    HTTP->Request->CustomHeaders->Text = "Cookie: reg=" + reg + "; ";
    HTTP->Get("http://portal.center.rt.ru/ClientWebPortal/appmanager/ClientPortal/PrivateClientDesktop?_nfpb=true&_pageLabel=PrivateClient_portal_login_page");
 
    for (int i = 0; i < 6; i++)
      ValueListEditor->Strings->ValueFromIndex[i] = " ";
 
    String temp = "";
    if ((Trim(Login->Text) != "") && (Trim(Password->Text) != ""))
    {
    HTTP->Post("https://portal.center.rt.ru/ClientWebPortal/appmanager/ClientPortal/PrivateClientDesktop?_nfpb=true&_windowLabel=LoginPortlet_4&LoginPortlet_4_actionOverride=%2Fcom%2Fsiemens%2Ftelco%2Fportal%2Fb2c%2Flogin%2Fjpf%2Flogin", SL, MS);
    MS->Position = 0;
    SL->LoadFromStream(MS);
    Memo->Text = UTF8ToString(SL->Text);
 
    RegExpr->Expression = "(txtRed\">)(.*?)(</span>)";
    if (RegExpr->Exec(Memo->Text))
     {
      temp = RegExpr->Match[2];
      temp = temp + "\n\nВозможно также, что был неверно выбран регион (область).";
      RegExpr->Expression = "(<small style=\"color: red\">)(.*?)(</small>)";
      if (RegExpr->Exec(Memo->Text))
      {
        temp = temp + "\n\n" + RegExpr->Match[2];
//      MessageBox(Application->Handle, temp.c_str(), "Ошибка", MB_OK+MB_ICONWARNING);
        ShowMessage(temp);
      }
     }
    }
    else
      MessageBox(Application->Handle, "Имя пользователя или пароль не может быть пустым.", "Ошибка", MB_OK+MB_ICONWARNING);
 
    if (temp == "")  // нет ошибок
     if ((Trim(Login->Text) != "") && (Trim(Password->Text) != ""))
    {
    HTTP->Get("https://portal.center.rt.ru/ClientWebPortal/appmanager/ClientPortal/PrivateClientDesktop?_nfpb=true&_pageLabel=PrivateClient_portal_Services_page", MS);
    MS->Position = 0;
    SL->LoadFromStream(MS);
    Memo->Text = UTF8ToString(SL->Text);
 
    String test, test2;
    char temp2;
 
    RegExpr->Expression = "(><span>)(.*?)(</span>)";
    if (RegExpr->Exec(Memo->Text))
      {
      test = " " + RegExpr->Match[2];
      temp2 = test[6];
      test[6] = test[7];
      test[7] = temp2;
      ValueListEditor->Strings->ValueFromIndex[0] = test;
      }
 
    RegExpr->Expression = "(<td style=\"vertical-align:middle\">)(.*?)(</td>)";
    if (RegExpr->Exec(Memo->Text))
      {
      test = " " + RegExpr->Match[2].LowerCase();
      test2 = test.UpperCase();
      for (int j = 1; j <= test.Length(); j++)
        if (test[j] == ' ' || test[j] == '-')
          test[j+1] = test2[j+1];
      ValueListEditor->Strings->ValueFromIndex[1] = test;
      }
 
    RegExpr->Expression = "(\t+)(<span>)(.*?)(</span>)";  // можно и (\t+?)
    if (RegExpr->Exec(Memo->Text))
      {
      test = " " + RegExpr->Match[3];
      for (int j = 1; j < test.Length(); j++)
        if (test[j] == '.')
          test[j] = ',';
      ValueListEditor->Strings->ValueFromIndex[2] = test;
      }
 
    RegExpr->Expression = "(<label>)(.*?)(</label>)";
    if (RegExpr->Exec(Memo->Text))
      ValueListEditor->Strings->ValueFromIndex[3] = " " + RegExpr->Match[2];
 
    RegExpr->Expression = "(<br/>\r\n\t+)(<label>)(.*?)(</label>)";
    if (RegExpr->Exec(Memo->Text))
      ValueListEditor->Strings->ValueFromIndex[4] = " " + RegExpr->Match[3];
 
    RegExpr->Expression = "(Подключено с:<br/>\r\n\t+)(<label>)(.*?)(</label>)";
    if (RegExpr->Exec(Memo->Text))
      ValueListEditor->Strings->ValueFromIndex[5] = " " + RegExpr->Match[3];
 
    Caption = title + "   : : : : :   " + FloatToStr((GetTickCount()-start)/1000.) + " секунд";  // "\u231A" - часы
    }
 
    ValueListEditor->Row = 3;
    delete MS;
    delete SL;
    delete ssl;
    delete HTTP;
    delete RegExpr;
  }
  catch (EIdException &E)
  {
    ShowMessage("Ошибка:\n\""+E.Message+"\"");
//  MessageBox(Application->Handle, ("\""+E.Message+"\"\n\nВозможно, отсутствует подключение\nк интернету или нет доступа к сайту.").c_str(), "Ошибка", MB_OK+MB_ICONWARNING);
  }
}

HTTP->HandleRedirects = 1;