Оптимизация ресурсов.

 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;
   }

Bitmap2->Dormant(); // освобождаем ресурсы GDI 
Bitmap2->FreeImage(); // освобождаем память