Убрать из TMemo запятые, числа расположить в столбик, и вывести все это во второе поле TMemo

void __fastcall TForm1::Button1Click(TObject *Sender)
{
        int i,j;
 
         //длина всего текста в  Memo1
        int size = Memo1->GetTextLen();
        //плюс позиция для окончания нуль-строки
        size++;
 
       char *buf = new char[size];
       //все содержимое Memo1 - в строке buf
       Memo1->GetTextBuf(buf,size);
 
       for(i=0,j=0;i<size;i++)
       {   char num[32]; //отдельное число в строке (до 32 цифр)
                         //заново столбится в памяти каждый раз
                         //при входе в цикл
 
           if(buf[i]!=',' && i!=size-1)
           {   num[j] = buf[i];  //набираем число до запятой или
                                 //до конца всего текста
               j++;
           }
           else
           {   num[j]='\0';             //закрываем строку с числом
               Memo2->Lines->Add(num);  //выводим в Memo2
               j =0;
           }
        }
 
        delete [] buf;
}

void __fastcall TForm1::Button1Click(TObject *Sender)
{
    AnsiString str = Memo1->Text;
    int        len = 0;
 
    while(len = str.Pos(",")) {
        Memo2->Lines->Add(str.SubString(1, len - 1));
        str.Delete(1, len);
    }
    Memo2->Lines->Add(str);
}