Заполнение переменных из файла

void __fastcall TForm1::Button1Click(TObject *Sender)
{
    TStringList *Lst = new TStringList;
        Lst->LoadFromFile("C:\\Test.csv");
        int NumberOfLines=Lst->Count;
        int Length = 0;
        AnsiString FirstLine = Lst->Strings[0];
        while(true)
        {
            int StartPos=FirstLine.Pos(";");
                if(!StartPos)
                    break;
                AnsiString RestString = FirstLine.SubString(StartPos+1,FirstLine.Length()-1);
                FirstLine=RestString;
                Length++;
        }
        Length++;
    int ** Column = new int*[Length];
        for(int i=0;i<Length;i++)
            Column[i]= new int[NumberOfLines];
        for(int i=0;i<NumberOfLines;i++)
        {
            AnsiString CurrentString = Lst->Strings[i];
                int Index=0;
                while(true)
                {
                    int StartPos=CurrentString.Pos(";");
                    if(!StartPos)
                        {
                            Column[Index][i]=CurrentString.ToInt();
                            break;
                        }
                        AnsiString RestString = CurrentString.SubString(StartPos+1,CurrentString.Length()-1);
                        Column[Index][i]=CurrentString.SubString(1,StartPos-1).ToInt();
                        CurrentString=RestString;
                        Index++;
                }
        }
        for(int i=0;i<Length;i++)
        {
            ShowMessage("New Column");
            for(int j=0;j<NumberOfLines;j++)
                    ShowMessage(Column[i][j]);    //требуемые столбцы.
        }
        for(int i=0;i<Length;i++)
            delete []Column[i];
        delete [] Column;
        delete Lst;
}

TStringList * DelimiterList = new TStringList;
DelimiterList->DelimiterText="Hallo;World";
DelimiterList->Delimiter=';';

void __fastcall TForm1::Button1Click(TObject *Sender)
{
        TStringList *Lst = new TStringList;
        TStringList *DelimiterLst = new TStringList;
        Lst->LoadFromFile("C:\\Test.csv");
        int NumberOfLines=Lst->Count;
        DelimiterLst->Delimiter=';';
        DelimiterLst->DelimitedText=Lst->Strings[0];
        int Length=DelimiterLst->Count;
        int ** Column = new int*[Length];
        for(int i=0;i<Length;i++)
                Column[i]= new int[NumberOfLines];
        for(int i=0;i<NumberOfLines;i++)
        {
                DelimiterLst->Delimiter=';';
                DelimiterLst->DelimitedText=Lst->Strings[i];
                for(int j=0;j<DelimiterLst->Count;j++)
                {
                        Column[j][i]=DelimiterLst->Strings[j].ToInt();
                }
        }
        for(int i=0;i<Length;i++)
        {
                ShowMessage("New Column");
                for(int j=0;j<NumberOfLines;j++)
                        ShowMessage(Column[i][j]);    //òðåáóåìûå ñòîëáöû.
        }
        for(int i=0;i<Length;i++)
                delete []Column[i];
        delete [] Column;
        delete Lst;
        delete DelimiterLst;
}