C++ Builder XE4 FireMonkey.Change Color TForm.(C++source code)

//------- Type 1.Windows and Mac OS X
Image1->HitTest = false;
Image1->Opacity = 1;
Image1->Position->X = 0;
Image1->Position->Y = 0;
Image1->Width = Form1->ClientWidth;
Image1->Height = Form1->ClientHeight;
Image1->Bitmap = new Bitmap(int(Image1->Width),int(Image1->Height));
Image1->Bitmap->Clear(claBlue);

//------- Type 2. Windows only
TBrushObject *myBrushObject;
void __fastcall Tmenuform::FormCreate(TObject *Sender)
{
//Solid(All red)
myBrushObject = new TBrushObject(this);
myBrushObject->Brush->Kind = TBrushKind::bkSolid;
myBrushObject->Brush->Color = claRed;

//Gradient(Up side green. Down side white)
//myBrushObject->Brush->Kind = BrushKind::bkGradient;
//myBrushObject->Brush->Gradient->Color = claSpringgreen;
//myBrushObject->Brush->Gradient->Color1 = claWhite;

Fill->Kind = TBrushKind::bkResource;
Fill->Resource->StyleResource = myBrushObject;
}
void __fastcall Tmenuform::FormDestroy(TObject *Sender)
{
delete myBrushObject;
}

Type2の参考
http://edn.embarcadero.com/article/42399

FireMonkey C++でFormの色を動的に変える方法。(C++ソース)
オブジェクトインスペクタでTForm->Fill->Colorをセットしても色は変わらない。
普通に検索しても動的にフォームの色を変える方法はヒットしなかった。
セットするだけで簡単に色が変わるプロパティが無いならソースで塗りつぶせばできるのではないかと思って塗りつぶす方法を検索していると上記Type2のサイトが見つかって色を変える方法が見つかったがWindowsでは問題ないもののMac OS Xではフォーカスが当たるまでフォーム上のコンポーネントを表示しない症状が出て使えない。
別の方法のType1を考えた。
TImageを一番背面に貼り付けてそこに色を塗りつぶす方法。