Отладка кода

#include<vcl.h>
#pragma hdrstop
#include"grf_.h"
#pragma package(smart_init)
#pragma resource"*.dfm"
TForm1*Form1;
_fastcall TForm1::TForm1(TComponent*Owner)
:TForm(Owner)
{
}
void_fastcall TForm1::FormPaint(TObject*Sender)
{
Grafik();
}
{пользователь изменил размер окна}
void_fastcall TForm1::FormResize(TObject*Sender)
{
 TRect rct = Rect(0,0,ClientWidth,ClientHeight);
 Canvas->FillRect(rct);
 Grafik();
 }
 {для доступа к sin и exp}
 #include"math.h"
 {функция,график которой надо построить}
 float f(float x)
 {
 return 2*sin(x)*exp(x/5);
 }
 void TForm1::Grafik()
 {
 float x1,x2;//
 float y1,y2;//
 float x;//
 float y;//
 float dx;//
 int l,b;//
 int w,h;//
 float mx,my;//
 int x0,y0;//
 {область вывода графика)
 1=10;//X-координата левого верхнего уровня
b = Form1->ClientHeight-20;//Y-координаты левого нижнего угла
h = Form1->ClientHeight-40;// высота
w = Form1->Width-20;//ширина
x1 = 0;//нижняя граница диапазона аргумента
x2 = 25;//верхняя граница диапазона аргумента
dx = 0.01;//шаг аргумента
{найдем максимальное и минимальное значение функции на отрезке [x],
X2]}
X = x1;
y1 = f(x);//минимум
y2 = f(x);//максимум
do {
y= f(x);
if(y<y1)y1=y;
if(y>y2)y2=y;
x+=dx;
}while(x<=x2);
{вычислить масштаб}
My=(float)/h/abs(y2-y1);//масштаб по оси Y
Mx=w/abs(x2-x1);//масштаб по оси X
{оси)
x0 =1+abs(x1*mx);
y0 =b-abs(y1*my);
Canvas->MoveTo(x0,b);Canvas->LineTo(x0,b-h);
Canvas->MoveTo(1,y0);Canvas->LineTo(1+w,y0);
Canvas->TextOutA(x0+5,b-h,FloatToStrF(y2,ffGeneral,6,3));
Canvas->TextOutA(x0+5,b,FloatToStrF(y1,ffGeneral,6,3));
{построение графика}
X=x1;
Do{
Y=f(x);
Canvas->Pixels[x0+x*mx][y0-y*my]=clRed;
X+=dx;
}while(x<=x2);
}