Массив AnsiString в Си++ Builder 6

AnsiString *AS1;
AS1=new AnsiString[10];

AnsiString AS2=AS1[1]; // не работает

AnsiString AS1;

    AnsiString A1 = "text";
    AnsiString A2 = "t";
    for (int i = 1; i <= A1.Length(); i++) {
        for (int a = 1; a <= A2.Length(); a++) {
            if (A1[i] == A2[a])
                ShowMessage("found it!");
        }
    }

AnsiString *AS1[10];
for( size_t i = 0; i < 10; AS1[i++] = new AnsiString() );
// ...
AnsiString AS2 = *( AS1[1] );

AnsiString *AS1;
AS1=new AnsiString[len];
 
int c; 
char temp_c[255]; 
int i=0;
int ilen=0;
 
       while(c != '\n') 
        {
         c=file.get();  
 
         if (file.eof())   
            {
             break;
            }
 
         if(c!=0x20&&c!=0X9&&c != '\n') 
          {
           while(c!=0x20&&c!=0X9&&c != '\n') 
            {
             temp_c[i]=c;
             
             AS1[ilen]=AS1[ilen]+AnsiString(temp_c[i]); 
             c=file.get();  
             if (file.eof()) 
              {
               break;
              }
             i++;
            }
           AS1[ilen]=AS1[ilen]+" "; 
           }
          ilen++;
          }

TStringList* SL = new TStringList;
SL->LoadFromFile("1.txt"); // загрузить текст из файла
// тут можно делать обработку строк обращаясь к строкам SL->Strings[n_stroki];
// или ко всему тексту SL->Text
// можно вымести в Memo:
//Memo1->Lines->Assign(SL);
// итд итп ... методов у TStringList достаточно ...
delete SL;