Оптимизация языка

[nikitinign]

Здравствуйте. Задача все кадры загрузить в массив а потом их вывести на форму в каком ни будь обработчике событий. Можно сделать так

int a[10];
Graphics::TBitmap*  nnn = new Graphics::TBitmap;
 Graphics::TBitmap*  bn = new Graphics::TBitmap;
 Graphics::TBitmap* steretn=new Graphics::TBitmap;
int x=255, y=85, t=5, c=85;
//---------------------------------------------------------------------------
void __fastcall TForm1::FormCreate(TObject *Sender)
{
 FILE *f;
 if(f=fopen("D:\\нприменры нпрогн\\3\\nnnnn.txt","r"));
 {
  for(int i=0;i<10;i++)
  {

   char t=fgetc(f);
   switch(t)
   {
    case '1' : {
     bn->LoadFromFile("n1.bmp");
     bn->Transparent=true;
    a[i]=1;

    break;  }
    case '2' : {
    nnn->LoadFromFile("n3.bmp");
    nnn->Transparent=true;
     a[i]=2;

     break;
   }
  }
 }
}  steretn->Width=Width;
   steretn->Height=Height;
   steretn->Canvas->FillRect(Rect(0,0,steretn->Width,steretn->Height));
   }
//---------------------------------------------------------------------------

void __fastcall TForm1::FormKeyDown(TObject *Sender, WORD &Key,
      TShiftState Shift)
{

 if( Key == VK_LEFT)
  for(int i=0;i<10;i++)

  { Sleep(52);
    switch(a[i])
   {
     case 1 : Form1->Canvas->Draw(x,y,bn);
      steretn->Canvas->FillRect(Rect(0,0,steretn->Width,steretn->Height));
                  steretn->Canvas->Draw(x,y,bn);              //Выводим на форму
                  Canvas->Draw(0,0,steretn); break;
     case 2 : Form1->Canvas->Draw(x,y,nnn);
     steretn->Canvas->FillRect(Rect(0,0,steretn->Width,steretn->Height));
                  steretn->Canvas->Draw(x,y,nnn);
                              //Выводим на форму
                  Canvas->Draw(0,0,steretn);
                  break;
   }
   }
}

Но при таком подходе придется писать имя каждого кадра и для каждого писать глобальную переменную (Graphics::TBitmap* nnn = new Graphics::TBitmap;
Graphics::TBitmap* bn = new Graphics::TBitmap) и если их сотни, то можно сделать на мой взгляд кучу лишней работы.
Подскажите пожалуйста, можно ли сделать то же самое, но только с одной глобальной переменной ( или подконец с несколькими, но не переименовывая каждый кадр движения бойца) - что то наподобие bn->LoadFromFile("n"+String(i/4)+".bmp"); и Canvas->Draw(x,y,bn[n(i)]);, или каждый кадр не избежно придется прописывать ?