Как создать пустой TImage, заполненный заданным цветом?

         TImage * pusto = new TImage(pusto); //
             pusto->AutoSize = false;
             pusto->Picture->Graphic-> Width = 4000; //->Bitmap
             pusto->Picture->Graphic->Height = 4000;// ->Bitmap
             pusto->Canvas->Brush->Color=clBlue;
pusto->Canvas->FillRect(Rect(0,0,4000,4000));
   //TRect tRect(0,0,pusto->Picture->Graphic-> Width,pusto->Picture->Graphic->Height);
 
 //PatBlt(pusto->Canvas->Handle, 0, 0, pusto->Picture->Width, pusto->Picture->Height, WHITENESS);
             pusto->Picture->SaveToFile("jjj.bmp");

pusto->Picture->Bitmap->SetSize(4000,4000);

StretchBlt(Karta_rajona->Canvas->Handle, 0, 0, 4000, 4000, Karta_rajona->Canvas->Handle,0,0,4000,4000, WHITENESS);

             pusto->Visible = true;
             pusto->Transparent = false;

              Karta_rajona->Picture->Bitmap = pusto->Picture->Bitmap;
      TJPEGImage * MapJPEG = new TJPEGImage();
             MapJPEG->Assign(Karta_rajona->Picture->Bitmap);
     MapJPEG->SaveToFile(Ndirektoria+Edit_new_basa->Text+"\\New Version\\default.jpg");
     MapJPEG=NULL;
     delete MapJPEG;
     pusto=NULL;
     delete pusto;