v[0]:=AHTML;

DocTR:=Doc.all.tags('TR') as IHTMLElementCollection;

ACurCodeN:=682;
CDate:=01.01.2022;
RDate:=28.02.2022;
URL:='https://www.cbr.ru/hd_base/seldomc/sc_dynamic/?UniDbQuery.Posted=True&UniDbQuery.From='+DateToStr(CDate)+'&UniDbQuery.To='+DateToStr(RDate)+'&UniDbQuery.ValID='+ACurCodeN;
try
  //FDataModule.IdHTTP1.HandleRedirects:=true;
  //AHTML:=FDataModule.IdHTTP1.Get(URL); //не работает из-за сайта
  AHTML:=FdataModule.NetHTTPClient1.Get(URL).ContentAsString;
  Doc:=coHTMLDocument.Create as IHTMLDocument2;
  v:=VarArrayCreate([0, 0], varVariant);
  v[0]:=AHTML;
  Doc.write(PSafeArray(System.TVarData(v).VArray));
  DocTR:=Doc.all.tags('TR') as IHTMLElementCollection;
  for i:=1 to DocTR.length-1 do
  begin
    TRElement:= DocTR.Item(i,0) as IHtmlElement;
    DocTD:=TRElement.children as IHTMLElementCollection;
    if (DocTD.length>2) then
    begin
      ADate:=StrToDate((DocTD.Item(0, 0) as IHtmlElement).innerText);
      AValue:=StrToCurr((DocTD.Item(2, 0) as IHtmlElement).innerText);
    end
  end
finally
  Doc:=nil;