Циклом for вычислить сумму ряда

int m,n,k,s=0,fact=1;
m=StrToInt(Edit1->Text);
n=StrToInt(Edit2->Text);
for(int i=1;i<=m;i++)
{fact*=i;
for(k=m;k<=n;k++)
s+=(float)pow(k,2)*log(fact);
}
Edit3->Text=FormatFloat("0.0000",s);
}

    int m = Edit1->Text.ToInt();
    int n = Edit2->Text.ToInt();
    int k;
    double s = 0.0, fact = 1.0;
 
    for(int i = 2; i < m; i++)
        fact *= i;
 
    for(k = m; k <= n; k++)
    {
        fact *= k;
        s += pow(k, 2) * log(fact);
    }
 
    Edit3->Text = FloatToStrF(s, ffFixed, 12, 4);

мой код:
void __fastcall TForm1::FormCreate(TObject *Sender)
{
Edit1->Text="0,1";
Edit2->Text="1,0";
Edit3->Text="30";
Edit4->Text="0,1";
Memo1->Lines->Add("Ëàáîðàòîðíàÿ ðàáîòà 3");
 
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
double a,b,x,h,Pi,e,y,s,r,m;  //  m-îáùèé ÷ëåí ðÿäà
int n,k;
Pi=3.14159265359;
e=2,718281828459045;
 
 
/*m=(cos(k*Pi/4)*pow(x,k))/k;  //k! - ÷òî ýòî? â çíàìåíàòåëå äîëæíî áûòü k! */
                a = StrToFloat(Edit1->Text);
        b = StrToFloat(Edit2->Text);
        n = StrToInt(Edit3->Text);
        h = StrToFloat(Edit4->Text);
 
      for (x = a; x<=b; x+=h)
      {
      y=pow(e,cos(Pi/4))*cos(x*(sin(Pi/4)));
      r=fabs(y-s);
                 for(k = 1; k<=n; ++k)
   {
 
             m=(cos(k*Pi/4)*pow(x,k))/k ;  //÷ëåí ðÿäà
              s=s+m;
                      }
      Memo1->Lines->Add("ïðè x= "+FloatToStrF(x,ffFixed,8,2)
                        +"\t Y(x)= "+FloatToStrF(y,ffFixed,8,5)
                       +"\t S(x)= "+FloatToStrF(s,ffFixed,8,5)
                       +"\t |Y(x)-S(x)|= "+FloatToStrF(r,ffFixed,8,5));
 
      }
}