>966,965
MyShapeSeries->SeriesColor=clAqua;　//clWhite以外を指定
これで白も表示されるはず。