BCB中怎么画出梯形，并对其中填充成黑色？（最好用shape和image）

BCB中如何画出梯形，并对其中填充成黑色？（最好用shape和image）
RT，我希望能用image或shape能做出一个梯形的图形，并对它填充上颜色，以后还想把这个做成动态的，以后让它一点点减少，这个梯形应该怎么做，image做出来的都是长方形，而shape也没有。

[解决办法]
看下以下效果吧,当然,这只是个测试.
Canvas用你自己的

C/C++ code

void __fastcall TForm1::Button1Click(TObject *Sender){  Canvas->Pen->Color=clRed;  Canvas->Brush->Color=clBlue;  Canvas->Brush->Style=bsSolid;  TPoint points[5];  points[0].x = 20;  points[0].y = 20;  points[1].x = 60;  points[1].y = 20;  points[2].x = 70;  points[2].y = 60;  points[3].x = 10;  points[3].y = 60;  points[4].x = 20;  points[4].y = 20;  Canvas->Polygon(points,4);}