ресурс в C++ Builder 2010

//---------------------------------------------------------------------------
 
#include <vcl.h>
#pragma hdrstop
 
#include "Unit1.h"
#include "no anim_resources.rc"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
 #pragma resource "no anim_resources.res"
TForm1 *Form1;
Graphics::TBitmap *Dude;
int x=455,y=85;  // Координаты нашего обьекта
Graphics::TBitmap *bb;
int b=5,c=85;
int Where=0;  // Направление (1 - влево; 3- вправо; 5 - вверх; 2 - вниз ) Почему такое - смотрим на дополнительную клавиатуру справа :-D
int AnimStep=1; //Кадр анимации
String Anim="n";  //Сама анимация (движение влево/вправо)
Graphics::TBitmap* dump=new Graphics::TBitmap;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::Timer1Timer(TObject *Sender)
{
  if( Where !=0 )     //Если задано направление
  {
 
  if( Where==3)             //Если задано движение вправо
  {     // Устанавливаем соответствующие имя  анимации
  x+=5;                   //Увеличиваем положение по x-координата не 5
  }
    if( Where==1){
  x-=5;
  }
 
  if (x<b+65) {
  x = b + 65;
  b-=5;
  }
    if( Where==5)           //Вверх
  {
  y-=5;
  }
    if( Where==2)           //Вниз
  {
  y+=5;
  }
 
    Dude->LoadFromResourceName((int)HInstance,"n1.bmp");    //Заргужаем текстуру обьекта из файла, имя которго это "Название текущей анимации"+"Номер кадра"+"Расширение файл"
 
 
 
  }
       dump->Canvas->FillRect(Rect(0,0,dump->Width,dump->Height));
              dump->Canvas->Draw(x,y,Dude);
          dump->Canvas->Draw(b,c,bb);              //Выводим на форму
                  Canvas->Draw(0,0,dump);
 }
 
//---------------------------------------------------------------------------
void __fastcall TForm1::FormCreate(TObject *Sender)
{
//Думаю, понятно
   Dude=new Graphics::TBitmap;
  Dude->LoadFromResourceName((int)HInstance,"n1.bmp");
   Dude->Transparent=true;
  bb=new Graphics::TBitmap;
   bb->LoadFromResourceName((int)HInstance,"nn10.bmp");
   bb->Transparent=true;
 
   dump->Width=Width;
   dump->Height=Height;
   dump->Canvas->FillRect(Rect(0,0,dump->Width,dump->Height));
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormKeyDown(TObject *Sender, WORD &Key,
      TShiftState Shift)
{
//Изменяем направление, в зависимости от нажатой клавиши (все очень просто - разберетесь)
if( Key == VK_RIGHT) Where=3;
if( Key == VK_LEFT) Where=1;
if( Key == VK_UP) Where=5;
if( Key == VK_DOWN) Where=2;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormKeyUp(TObject *Sender, WORD &Key,
      TShiftState Shift)
{
 Where=0;                     //Если отпущена клавиша, то останавливаем обьект
Dude->LoadFromResourceName((int)HInstance,"n1.bmp");      //Загружаем кадр "простоя" обьекта
}
 
//---------------------------------------------------------------------------
 //Конец ;-D