Как считывать числа с Memo1 и их множить, складывать и т.д.?

void __fastcall TForm1::Button1Click(TObject *Sender)
{
   int Summ = 0, Mult = 1;
   for(int i = 0; i < Memo1->Lines->Count; i++)
     {
        Summ += StrToInt(Memo1->Lines->Strings[i]);
        Mult *= StrToInt(Memo1->Lines->Strings[i]);
     }
   Label1->Caption = String().sprintf("Сумма: %d\r\nПроизведение: %d", Summ, Mult);
}

__fastcall TForm1::TForm1(TComponent* Owner)
   : TForm(Owner)
{
   // заполняем Memo1 числами (5 штук для примера)
   for (int i = 0; i < 5; i++) {
      Memo1->Lines->Add(IntToStr(i + 1));
   }
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
   // создаем дин. массив
   int *arr = new int[Memo1->Lines->Count];
   // считываем числа в массив
   for (int i = 0; i < Memo1->Lines->Count; i++) {
      arr[i] = Memo1->Lines->Strings[i].ToInt();
   }
   // что-то делаем с полученными числами
   // ...
   // не забываем очистить выделенную память под массив arr
   delete [] arr;
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Button1Click(TObject *Sender)
{
   //сложение
  TStringList *List = new TStringList;
  List->DelimitedText = Memo1->Text;
  int s=0;
  for (int i=0; i<List->Count; i++)
      s+=StrToInt(List->Strings[i]);
  Label1->Caption=IntToStr(s);
}

void __fastcall TForm1::Button2Click(TObject *Sender)
{
         //умножение
  TStringList *List = new TStringList;
  List->DelimitedText = Memo1->Text;
  int s=1;
  for (int i=0; i<List->Count; i++)
      s*=StrToInt(List->Strings[i]);
  Label1->Caption=IntToStr(s);
}

#include <memory>
...
std::auto_ptr<TStringList> List (new TStringList);

List->Assign(Memo1->Lines);