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;

  procedure TFUpdate.sButton1Click(Sender: TObject);
  begin
  FDataModule.FDQueryRead.Close;
  FDataModule.FDQueryRead.SQL.Clear;
  FDataModule.FDQueryRead.SQL.Text:='select max(CLD_DATE) from CALENDAR';
  FDataModule.FDQueryRead.Open;
  LastDate:=FDataModule.FDQueryRead.FieldByName('MAX').AsDateTime;
  begin
    while LastDate<=Date do
    begin
      FDataModule.FDTransactionWrite.StartTransaction;
      try
        FDataModule.FDQueryWrite.Close;
        FDataModule.FDQueryWrite.SQL.Clear;
        FDataModule.FDQueryWrite.SQL.Text:='update or insert into CALENDAR (CLD_DATE) values (:CldDate) matching(CLD_DATE)';
        FDataModule.FDQueryWrite.Params.ParamByName('CldDate').AsDate:=LastDate;
        FDataModule.FDQueryWrite.ExecSQL;
        FDataModule.FDTransactionWrite.Commit;
      except
        FDataModule.FDTransactionWrite.Rollback;
      raise;
      end;
    LastDate:=LastDate+1;
    end;
  end;

  LastDate:=Date;
  FDataModule.FDQueryRead.Close;
  FDataModule.FDQueryRead.SQL.Clear;
  FDataModule.FDQueryRead.SQL.Text:='select CLD_DATE from CALENDAR where CLD_DATE=:CurDate';
  FDataModule.FDQueryRead.Params.ParamByName('CurDate').AsDate:=LastDate;
  FDataModule.FDQueryRead.Open;
  sMemo1.Text:=DateToStr(FDataModule.FDQueryRead.FieldByName('CLD_DATE').AsDateTime);
  end;