Код запроса страницы:

procedure TForm1.bGetURLClick(Sender: TObject);
  var Content : TStringStream;
	V     : OleVariant;
	sURL  : string;
begin
  try
    Content := TStringStream.Create;	//	создаем поток

    DocHTML :=	coHTMLDocument.Create as IHTMLDocument2;
    DocHTML.designMode := 'on';
    sURL    :=	edURL.Text;

    try
        IdHTTP1.Get(sURL, Content);
        V     := VarArrayCreate([0, 0], varVariant);
        V[0]  := Content.DataString;
        DocHTML.write(PSafeArray(TVarData(V).VArray));

        mText.Lines.Add('HTML получен!');
    finally
        Content.Free;
    	end;

  except
  on E: exception do
    Application.MessageBox(PChar('Ошибка в procedure TForm1.bGetURLClick: ' +#13#13+ E.Message), '!!!', mb_IconStop);
  end;
end;

procedure TForm1.bGetTagClick(Sender: TObject);
  var	TagA	: IHTMLElementCollection;
	Element : IHTMLElement;
	sTag, sTXT : string;
	i, iCount : integer;
begin
  if DocHTML <> nil then
  begin
    try
        sTag  :=  edTag.Text;	//  тэг который надо искать
        TagA  :=  DocHTML.all.tags(sTag) as IHTMLElementCollection;	//	коллекция по выбранному тэгу

        iCount := TagA.length - 1;	//  кол-во элементов

        mText.Clear;
        mText.Lines.BeginUpdate;	//  отключаем контроль на Мемо

        //	бежим по коллекции и заносим стоки в Мемо
	for i := 0 to iCount do
        begin
          Element  :=	TagA.item(i, 0) as IHTMLElement;

	  case cbNoTag.Checked of
	    False  : sTXT := element.innerHTML;  //  с тэгами
	    True   : sTXT := element.innerText;	  //  без тэгов
          end;

          mText.Lines.Add(UTF8ToString(sTXT));		 //  перекодировка и добавление строки в Мемо
        end;

	mText.Lines.EndUpdate;    //	включаем контроль на Мемо
    except
    on E: exception do
	Application.MessageBox(PChar('Ошибка в procedure TForm1.bGetTagClick: ' +#13#13+ E.Message), '!!!', mb_IconStop);
    end;
  end;
end;