Invalid floating point operation при попытке нарисовать график

aX=(aSX-gScrRect.SXmin)*(gMathReg.Xmax-gMathReg.Xmin)/(gScrRect.SXmax-gScrRect.SXmin)+ gMathReg.Xmin;

//---------------------------------------------------------------------------
 
#include <vcl.h>
#pragma hdrstop
 
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
 
struct TRegion
{
  long double Xmin,Ymin,Xmax,Ymax;
};
struct TScreenRect
{
  int SXmin,SYmin,SXmax,SYmax;
};
TRegion gMathReg;
TScreenRect gScrRect;
 
void SetRegions (int aSXmin,int aSYmin,
                int aSXmax,int aSYmax,
                long double aXmin, long double aYmin,
                long double aXmax, long double aYmax)
{
    gScrRect.SXmin=aSXmin;
    gScrRect.SYmin=aSYmin;
    gScrRect.SXmax=aSXmax;
    gScrRect.SYmax=aSYmax;
 
    gMathReg.Xmin=aXmin;
    gMathReg.Ymin=aYmin;
    gMathReg.Xmax=aXmax;
    gMathReg.Ymax=aYmax;
}
 
void ScrToMath (int aSX,int aSY, long double &aX,long double &aY)
{
   aX=(aSX-gScrRect.SXmin)*(gMathReg.Xmax-gMathReg.Xmin)/(gScrRect.SXmax-gScrRect.SXmin)+ gMathReg.Xmin;
   aY=(aSY-gScrRect.SYmin)*(gMathReg.Ymax-gMathReg.Ymin)/(gScrRect.SYmax-gScrRect.SYmin)+ gMathReg.Ymin;
}
 
const coNumColors=10;
const long double coMinValue=-100,coMaxValue=100;
const TColor coLowColor=clMaroon,coHigh=clLime;
 
class TFuncXYRegionGraphic
{
  private:
  TColor FColors[10];
  protected:
  long double Func1 (long double, long double);
  public:
  TFuncXYRegionGraphic();
  TColor __fastcall GetColor (long double);
  void __fastcall DrawGraphic (TImage *);
};
 
TFuncXYRegionGraphic::TFuncXYRegionGraphic()
{
  FColors[0]=(TColor) 0xFF0000;
  FColors[1]=(TColor) 0xFF3030;
  FColors[2]=(TColor) 0xFF6060;
  FColors[3]=(TColor) 0xFF9090;
  FColors[4]=(TColor) 0xFFB0B0;
 
  FColors[5]=(TColor) 0xB0FFB0;
  FColors[6]=(TColor) 0x90FF90;
  FColors[7]=(TColor) 0x60FF60;
  FColors[8]=(TColor) 0x30FF30;
  FColors[9]=(TColor) 0x00FF00;
}
 
long double TFuncXYRegionGraphic::Func1 (long double aX,long double aY)
{
  return aX*aX -aY*aY;
}
 
TColor  __fastcall TFuncXYRegionGraphic::GetColor (long double aZ)
{
  int aux=coNumColors*(aZ-coMinValue)/(coMaxValue-coMinValue);
  if (aux>=coNumColors) return coLowColor;
  if (aux<0) return coHigh;
  else return FColors[aux];
}
void __fastcall TFuncXYRegionGraphic::DrawGraphic (TImage *aIm)
{
  long double x0,y0,f0;
  x0=0;y0=0;f0=0;
  aIm->Canvas->Lock();
  for (int iY=0;iY<aIm->Height;iY++)
        {
          for (int iX=0;iX<aIm->Width;iX++)
          {ScrToMath(iX,iY,x0,y0);
                f0=Func1(x0,y0);
                aIm->Canvas->Pixels[iX][iY]=GetColor(f0);
          }
          Application->ProcessMessages();
        }
        aIm->Canvas->Unlock();
}
 
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::btn1Click(TObject *Sender)
{
   TFuncXYRegionGraphic objDG;
   objDG.DrawGraphic(aIm);
}
//---------------------------------------------------------------------------