Не отображается графика на TImage();

[iMax`]

Пытаюсь вывести рисунок или битмап и ничего...

void TGround::Set_GR_Put(TCanvas* List)
{
List->Pen->Color=clBlack;
List->Rectangle(0,0,40,40);
Graphics::TBitmap *ground_tex = new Graphics::TBitmap;
ground_tex->LoadFromFile("C:\\FrloGGer\\Data\\ ground.bmp");
List->Draw(0,0,ground_tex);
};

void __fastcall TForm1::FormCreate(TObject *Sender)
{
Ground.Set_GR_Poz(Form1->Image1->Width, Form1->Image1->Height);
Ground.Set_GR_Put(Image1->Canvas);
};

Экран приложения остался пустым... В чём может быть проблема?