Вывести в Memo

// щас надо из листбох в массив а потом его перевести в инт массив
        AnsiString * mas = new AnsiString[ListBox1->Items->Count];
        for (int i = 0; i < ListBox1->Items->Count; i++)
            mas[i] = ListBox1->Items->Strings[i];
        // mas[i] -  массив содержащий строки циклов
 
        // 1,2,3,1
        // 1,3,2,1
 
        AnsiString od, dv;
        int W[100][100]; // массив с ответом
        int wk = 0; // столбцы новой
        int wv = 0; // строки новой
        int r = 1;// с какого элемента начинать копировать во временный массив
        int kol = ListBox1->Items->Count;
        int der = mas[0].Length();
        der++;
        for (int i = 0; i < kol; ) {
            dv = mas[i].SubString(r, 1);
            Form1->Memo1->Lines->Add(dv);
            if (dv == ",") {
                W[wk][wv]=StrToInt(od);
                wk++;
                od="";
                r++;
            }
            if (der == r) {
                W[wk][wv]=StrToInt(od);
                wv++;
                i++;
                r=1;
                wk=0;
                od="";
            }
            if (dv != "," && der >= r) {
                od=od+dv;
                r++;
            }
        }
          for (int a = 0; a < wk; a++)
            for (int y = 0; y < wv; y++)
                 Form1->Memo1->Lines->Add(W[a][y]);

TStrings::Delimiter + TStrings::DelimitedText

    /* #include <memory>  */
   std::auto_ptr<TStringList> sl(new TStringList()) ; 
    ExtractStrings(TSysCharSet()<<','<<'\r'<<'\0',TSysCharSet(),
       ListBox1->Items->Text.c_str(),sl.get());
    int *arr = new int[sl->Count];
    for (int i=0;i<sl->Count;i++) arr[i]=sl.get()->Strings[i].ToInt();
    Memo1->Lines = sl.get();