Создаём игру

//
//Tlocation - сырой
//
class TLocation
{
  private:
  Graphics::TBitmap *TilesBuffer;
  Graphics::TBitmap *BlockBuffer[100];
  public:
 
  Graphics::TBitmap *Buffer;
  int   Size;
  int   Width;
  int   Height;
  TStringGrid   *TilesGrid;
  TStringGrid   *MoveGrid;
 
  public:
  TLocation(TForm *GameForm);
  ~TLocation();
  void __fastcall LoadTilesLocation(AnsiString file);
  void __fastcall LoadMoveLocation(AnsiString file);
  void __fastcall DrawLocation();
  void __fastcall LoadBlockTiles(AnsiString file);
};
 
 
  TLocation::TLocation(TForm *GameForm)
  {
        Buffer                  = new Graphics::TBitmap;
        TilesBuffer             = new Graphics::TBitmap;
        TilesGrid               = new TStringGrid(GameForm);
        MoveGrid                = new TStringGrid(GameForm);
        Buffer->Width           = 1280;
        Buffer->Height          = 1280;
        MoveGrid->RowCount      = Height = 40;
        TilesGrid->RowCount     = Height = 40;
        MoveGrid->ColCount      = Width  = 40;
        TilesGrid->ColCount     = Width  = 40;
  }
  TLocation::~TLocation()
  {
        delete  Buffer;
        delete  TilesBuffer;
        delete  TilesGrid;
        delete  MoveGrid;
        delete  []BlockBuffer;
  }
 
//----------Caiieiaiea a?eaa oaeeaie eieaoee-------------------
  void __fastcall TLocation::LoadTilesLocation(AnsiString file)
  {
    std::auto_ptr<TStringList>TilesLocationTable(new TStringList());
 
        TilesLocationTable->LoadFromFile(file);
 
        for(int i = 0 ; i < TilesGrid->RowCount ; i++)
        {
            TilesGrid->Rows[i]->DelimitedText = TilesLocationTable->Strings[i];
        }
  }
//----------Caiieiaiea a?eaa i?ioiaeiinou? eieaoee------------
  void __fastcall TLocation::LoadMoveLocation(AnsiString file)
  {
    std::auto_ptr<TStringList>MoveLocationTable(new TStringList());
 
        MoveLocationTable->LoadFromFile(file);
 
        for(int i = 0 ; i < MoveGrid->RowCount ; i++)
        {
            MoveGrid->Rows[i]->DelimitedText = MoveLocationTable->Strings[i];
        }
  }
//----------?enoai eieaoe? a aooa?----------------------------
  void __fastcall TLocation::DrawLocation()
  {
    for(int j = 0; j < Width; j++)          // Aunioa eieaoee
    {
        for(int i = 0; i < Height; i++)     // Oe?eia eieaoee
        {
 
                        Buffer->Canvas->Draw(i*32, j*32, BlockBuffer[TilesGrid->Cells[i][j].ToInt()]);
        }
    }
  }
//----------Caa?o?aai oaeeu-----------------------------------
  void __fastcall TLocation::LoadBlockTiles(AnsiString file)
  {
        BlockBuffer[0] = NULL;
        TilesBuffer->LoadFromFile(file);
        for(int i = 1; i < 5 ;i++)
        {
            BlockBuffer[i]          = new Graphics::TBitmap();
            BlockBuffer[i]->Width   = 32;
            BlockBuffer[i]->Height  = 32;
            BlockBuffer[i]->Canvas->CopyRect(Rect(0,0,32,32), TilesBuffer->Canvas, Rect(0,(i-1)*32,32,(i-1)*32+32));
        }
        delete TilesBuffer;
  }
  
  //TLocation *Map = new TLocation(Form1);

// FormCreat
  Map->LoadBlockTiles("surface\\location\\location_texture.bmp");
  Map->LoadTilesLocation("location\\a01\\a01.location");
  Map->LoadMoveLocation("location\\a01\\a01.mov.location");

//OnPaint
Map->DrawLocation();
Form1->Canvas->Draw(0,0,Map->Buffer);