이렇게 하여 해결하였습니다. 감사합니다..^^

void __fastcall TMainForm::UIDrawBackground(TImage* image)
{
     if(image==NULL) return;

     image->Picture->Bitmap->Width=image->Width;
     image->Picture->Bitmap->Height=image->Height;
     image->Canvas->Lock();
     try
     {
          TColor color=image->Canvas->Brush->Color;
          image->Canvas->Brush->Color=TColor(_UIBackgroundEndColor);
          image->Canvas->FillRect(TRect(0,0,image->Width,image->Height));
          image->Canvas->Brush->Color=color;
          UIDrawBackground(image->Canvas->Handle,image->Width,image->Height);
     } __finally
     {
          image->Canvas->Unlock();
     }
}
//---------------------------------------------------------------------------