unsigned int Graphic(TChart* Chart1)
{
double Time[31];
double U[31];
Time[0]=0;
U[0]=Uforced+(Ufree1*exp(p1*Time[0]))+(Ufree2*exp(p2*Time[0]));
for(unsigned int i=1;i<31;i++)
{
Time[i]=Time[i-1]+0,0001;
U[i]=Uforced+(Ufree1*exp(p1*Time[i]))+(Ufree2*exp(p2*Time[i]));
Chart1->SeriesList[0].AddXY(Time[i],U[i],clRed);
}
return 0;
}

Chart1->Series[0]->AddXY(Time[i],U[i],FloatToStrF(Time[i],ffGeneral,4,4),clRed);