Как парсить страницы сайтов

procedure TForm1.Button1Click(Sender: TObject);
var url, page : string;
begin
url:='http://www.yandex.ru';
page:=IdHTTP1.get(url);  //скачиваем код страницы
Memo1.text:=page;
end;

procedure TForm1.Button1Click(Sender: TObject);
var Doc, El: Variant;
    i: Integer;
begin
  Doc := WebBrowser1.OleObject.Document.GetElementsByTagName('tbody'); // вот зацепляемся за тег
  for i := 0 to Doc.Length - 1 do // ищем все что связано с этим тегом
    begin
      El := Doc.Item(i); // получаем элементы этого тега
        if El.Id = 'collapseobj_forumhome_stats' then // и вот тут вот сравниваем за вышесказанный id
                                                      // если в таком теге и с таким id что-то найдено
        Memo1.Lines.Add(El.InnerText) // то вывести это в мемо как текст, а не как код html
                                      // за это отвечает InnerText, если нужно было бы кодом - то можно было бы написать InnerHTML
    end;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  WebBrowser1.Navigate('https://www.cyberforum.ru/');
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  memo1.Text:=WebBrowser1.getElementById('tbody','collapseobj_forumhome_stats').innerText;
end;
 
procedure TForm1.Button2Click(Sender: TObject);
begin
  WebBrowser1.Navigate('https://www.cyberforum.ru/');
end;