🚀 go-pugleaf

Here is my stripped down code that replicates the error

header file
=======

file://---------------------------------------------------------------------
------

#ifndef PlotH
#define PlotH
file://---------------------------------------------------------------------
------

#include <Classes.hpp>
#include <Controls.hpp>
#include <StdCtrls.hpp>
#include <Forms.hpp>
#include <Chart.hpp>
#include <ExtCtrls.hpp>
#include <Series.hpp>
#include <TeEngine.hpp>
#include <TeeProcs.hpp>
#include <ComCtrls.hpp>
#include "test.h"
#include <ADODB.hpp>
#include <DB.hpp>
//--------------------------------------------------------------------------
-
class TPlotForm : public TForm
{
__published: // IDE-managed Components
  TButton *calcButton;
  TChart *Chart1;
  TLineSeries *Series1;
  TADOConnection *ADOConnection1;
  TADODataSet *DataSet;
  void __fastcall calcButtonClick(TObject *Sender);

private: // User declarations
  double PriceBond(AnsiString BondName,bool useNewrfr, double newRfr);
public:  // User declarations
  __fastcall TPlotForm(TComponent* Owner);
};
//--------------------------------------------------------------------------
-
extern PACKAGE TPlotForm *PlotForm;
//--------------------------------------------------------------------------
-
#endif

cpp file
=====
#include <vcl.h>
#pragma hdrstop

#include "Plot.h"
//--------------------------------------------------------------------------
-
#pragma package(smart_init)
#pragma resource "*.dfm"
TPlotForm *PlotForm;
//--------------------------------------------------------------------------
-
__fastcall TPlotForm::TPlotForm(TComponent* Owner)
  : TForm(Owner)
{
}
//--------------------------------------------------------------------------
-
void __fastcall TPlotForm::calcButtonClick(TObject *Sender)
{

  double startVal, endVal, Steps;
  startVal = 0.50;
  endVal = 0.51;
  Steps = 0.01;
  double xVal[5];
  double yVal[5];
  int counter = 1;
  xVal[0] = startVal;
  while ( xVal[counter-1] < endVal )
    {
      xVal[counter] = xVal[counter-1]+Steps;
      counter++;
    }
  AnsiString bondName = "TestBond";
  double tempValue = 0;
  double temp;
  for (int i = 0; i < counter; i++)
    {
      yVal[i] = PriceBond(bondName,true, xVal[i]);
    }
  Chart1->Series[0]->Clear();
  for (int i = 0; i<counter; i++){
    Chart1->Series[0]->AddXY(xVal[i],yVal[i]);}
 }//error occurs here
//--------------------------------------------------------------------------
-
double TPlotForm::PriceBond(AnsiString BondName, bool useNewrfr, double
newRfr)
{
  ADOConnection1->Connected = false;
  ADOConnection1->Connected = true;
  DataSet->CommandText = "select * from bond where ID=\""+BondName+"\"";
  DataSet->Open();
  double nominal = DataSet->FieldByName("Nominal")->AsString.ToDouble();
  file://if this is true, error occurs
  bool useYieldCurve= DataSet->FieldByName("UseYieldCurve")->AsBoolean;
  double riskFreeRate;
  if (!useYieldCurve)
    riskFreeRate = DataSet->FieldByName("RiskFreeRate")->AsFloat;
  DataSet->Close();
  double rfr;
    if (useNewrfr)
      rfr = newRfr;
    else
      rfr = riskFreeRate;
  double Value;
  if (!useYieldCurve)
    Value = rfr*nominal;
  else Value = nominal*2;
  ADOConnection1->Connected = false;
  return Value;
}