куб (правильный шестигранник)

[C++++]

Вот код рисунка правильного шестигранника (куба):

Image1->Canvas->Font->Style<<fsBold;
Image1->Canvas->Rectangle(0,0,100,100);
Image1->Canvas->Rectangle(40,30,140,130);
Image1->Canvas->MoveTo(0,0);
Image1->Canvas->LineTo(40,30);
Image1->Canvas->MoveTo(100,0);
Image1->Canvas->LineTo(140,30);
Image1->Canvas->MoveTo(0,100);
Image1->Canvas->LineTo(40,130);

Кто-нибудь знает как закрасить верхнюю и нижнюю грани, а фон закрасить другим цветом?