Правильно спарсить всю страницу

AnsiString TFinderThr::GrabHtml(AnsiString strURL)
{
    AnsiString str;
    TIdHTTP *Http1;
    Http1 = new TIdHTTP(NULL);
    try {
        Http1->Request->UserAgent = "User-Agent NULL";
        Http1->HandleRedirects = true;
        Http1->OnWork = HttpWork;
        str = Http1->Get(strURL);
        }
    __finally {
        Http1->Free();
    }
    return str;
}

  
  slRaw = new TStringList();
  TBytes B;
  AnsiString charset;
  AnsiString metacharset;
  std::auto_ptr<TBytesStream> BS(new TBytesStream(B));
  m = new TStringStream("",TEncoding::UTF8,true);
  http = new TIdHTTP();
  TIdSSLIOHandlerSocketOpenSSL *ssl= new TIdSSLIOHandlerSocketOpenSSL(NULL);
  http->IOHandler = ssl;
  http->HandleRedirects = true;
  try {
    String sEncodedURL;
    sEncodedURL = TIdURI::URLEncode(sURL);
    http->Get(sEncodedURL,m);
    result = http->ResponseCode;
    restext = http->ResponseText;
    charset = LowerCase(http->Response->CharSet);
    metacharset = LowerCase(http->Response->MetaHTTPEquiv->CharSet);
    m->Position = 0 ;
    BS->CopyFrom(m, m->Size);
    if ( (metacharset=="utf-8")||
         ((metacharset=="")&&(charset=="utf-8")) ) {
      B = TEncoding::Convert(TEncoding::UTF8, TEncoding::GetEncoding(1251),BS->Bytes,0,BS->Size);
    } else
      B = BS->Bytes;
 
    slRaw->Text = StringOf(B);

TRegExpr *r=new TRegExpr();
    try {
      r->Expression="По вашему запросу ничего не нашлось";
      if (r->Exec(str)) {
        Log("По запросу ничего не нашлось",2);
      } else {
        r->Expression = "<h2 class=\"serp-item__title clearfix\">.*?href=\"(.*?)\".*?<//h2>";
        if (r->Exec(str)) {
          do {
            AddResult(r->Match[1]);
          } while(r->ExecNext());
        }
      }
    } __finally {
      delete r;
    }