Распарсить строку с сайта

AnsiString One=IdHTTP1->Get("http://www.xn--c1adahg2atfb8hee9d.xn--p1ai/");
 
    String N,K;
 
    N="<div class=\"head_2\"> Сервер 4<br />";
    K="</div>";
 
    int p,p2;
 
     while (One.Pos(N)&&One.Pos(K)) {
 
 
      if (p == 0 && p2 == 0) break;
 
    p=One.Pos(N);
    p2=One.Pos(K);
    AnsiString Value="None";
    Value=One.SubString(p,p2-p);
    if (p!=0&&p2!=0) Memo1->Lines->Add(Value+"Test");
 
     int sPos = One.Pos(N);
      int ePos = One.Pos(K);
      if (sPos == 0 && ePos == 0) break;
      if (sPos != 0) One.Delete(sPos,1);
      if (ePos != 0) One.Delete(ePos,1);
    }
    ShowMessage("Compite");

    std::auto_ptr<TStringStream> ss (new TStringStream("", TEncoding::GetEncoding(1251), true));
    IdHTTP1->Get("http://www.xn--c1adahg2atfb8hee9d.xn--p1ai/", ss.get());
    String One = ss->DataString;
 
    std::auto_ptr<TRegExpr> re (new TRegExpr);
    re->InputString = One;
    re->ModifierM = true;
    re->Expression = L"<div class=\"head_2\"> Сервер 4<br />(.*?)</div>";
    re->Compile();
    if(re->Exec(re->InputString))
    {
        ShowMessage(re->Match[1]);
    }

#include "System.RegularExpressions.hpp"
 
//...
 
std::auto_ptr<TStringStream> ss (new TStringStream("", TEncoding::GetEncoding(1251), true));
IdHTTP1->Get("http://www.xn--c1adahg2atfb8hee9d.xn--p1ai/", ss.get());
String One = ss->DataString;
 
String expr = L"<div class=\"head_2\"> Сервер 4<br />(.*?)</div>";
TRegExOptions reg_opt = TRegExOptions() << roIgnoreCase << roMultiLine;
 
if (TRegEx::IsMatch(One, expr, reg_opt)) ShowMessage(TRegEx::Match(One, expr, reg_opt).Groups[1].Value);