Дано натуральное число. Выполнить с ним некоторые действия

#include <vcl.h>
#pragma hdrstop
#include <math.hpp>
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
int Powered(int Osn, int Pok)
{
  return (int)(Power((double)(Osn), (double)(Pok)));
}
//---------------------------------------------------------------------------
void __fastcall TForm1::RadioGroup1Click(TObject *Sender)
{
  int i;
  if(!TryStrToInt(Edit1->Text, i))
   {
     ShowMessage("Это не число!!!");
     return;
   }
  String st = Edit1->Text;
  int S = 0, P = 1;
  double SA = 0.0;
  switch(RadioGroup1->ItemIndex)
   {
     case 0 :
      Label2->Caption = IntToStr(st.Length());
      break;
     case 1 :
      for(int j = 1; j <= st.Length(); j++)
       S += StrToInt(st[j]);
      Label2->Caption = IntToStr(S);
     break;
     case 2 :
      for(int j = 1; j <= st.Length(); j++)
       P *= StrToInt(st[j]);
      Label2->Caption = IntToStr(P);
      break;
     case 3 :
      for(int j = 1; j <= st.Length(); j++)
       S += StrToInt(st[j]);
      SA = (double)(S) / st.Length();
      Label2->Caption = FloatToStr(SA);
      break;
     case 4 :
      for(int j = 1; j <= st.Length(); j++)
       S += Powered(StrToInt(st[j]), 2);
      Label2->Caption = IntToStr(S);
      break;
     case 5 :
      for(int j = 1; j <= st.Length(); j++)
       S += Powered(StrToInt(st[j]), 3);
      Label2->Caption = IntToStr(S);
      break;
     case 6 :
      Label2->Caption = st[1];
      break;
     case 7 :
      Label2->Caption = IntToStr(StrToInt(st[1]) + StrToInt(st[st.Length()]));
      break;
   }
}
//---------------------------------------------------------------------------