Ошибка при вычислении

void __fastcall TForm1::BitBtn1Click(TObject *Sender)
{
    double x,y,z;
    x = StrToFloat(MaskEdit1->Text);
    y = StrToFloat(MaskEdit2->Text);
    z = StrToFloat(MaskEdit3->Text);
    double val[1001];
    int i = 1;
    val[i] = x;
    Memo1->Lines->Add(FloatToStr(val[i]));
    for (;;) {
        i++;
        val[i] = val[i-1] + z;
        Memo1->Lines->Add(FloatToStr(val[i]));
        if (val[i] >= y) {
            break;
        }
    }
}

Memo1->Lines->Add(FloatToStrF(val[i], ffFixed, 5, 2));

float a=0.;
Edit1->Text=FloatToStr(a);
a=sin(a);
Edit2->Text=FloatToStr(a);

    ::TParser pars;
    for (int j = 1; j <= i; j++) {
        try {
            fx = Edit1->Text;
            fx1 = "x";
            fx2 = FloatToStr(x[j]);
            fx = AnsiReplaceStr(fx,fx1,fx2);
            fx = AnsiReplaceStr(fx,",",".");
            pars.Compile(fx.c_str());
            pars.Evaluate();
            y[j] = pars.GetResult();
        } catch (TError error) {
            ShowMessage(QuotedStr(error.error)+" at position "+IntToStr(error.pos));
        }
    }

fx2 = FloatToStr(x[j]);