void __fastcall TfGRAFICADOR::Dib_func(int EX, int EY)
{
funcion = new char[eFuncion->Text.Length() + 1];
StrCopy(func_prueba, Edit1->Text.c_str());
double x,y;
double minX=-1*EX,maxX=EX;
double minY=-1*EY,maxY=EY;
int x1,y1;
// EX, EY son las escalas para los ejes
for(x=-1*EX;x<EX;x+=0.01)
{
//aqui se calcula el valor de y
y=punto_x(x,funcion);//Funcion a graficar y=f(x)
//Conversion de real devuelto a entero
x1=(x-minX)*(iGrafica->ClientWidth)/(maxX-minX)+1;
y1=(iGrafica->ClientHeight)-(y-minY)*(iGrafica->ClientHeight)/(maxY-minY)+1;
iGrafica->Canvas->Pixels[x1][y1]=clGreen;
Sleep(wait(x*100)); //<-- y les aseguro que si funciona
}
}