Нарисовать на форме домик с забором

void deck(TPoint * points, int pos)  // доска; pos - относительное смещение
{
  points[0].x += pos;
  points[1].x += pos;
  points[2].x += pos;
  Form1->Canvas->Polygon(points, 2);
  Form1->Canvas->Rectangle(points[1].x, points[1].y, points[2].x, 525);
}
void __fastcall TForm1::Button8Click(TObject *Sender)
{
// фон
//  Color = clGray;  // clBtnFace
 
// солнце
  Canvas->Brush->Color = clYellow;
  Canvas->Ellipse(Width-150, 50, Width-75, 125);
 
// крыша
  Canvas->Brush->Color = clRed;
  TPoint points[3];
  points[0] = Point(Width/2-75, 100);
  points[1] = Point(Width/2-225, 275);
  points[2] = Point(Width/2+75, 275);
  Canvas->Polygon(points, 2);
 
// чердак
  Canvas->Brush->Color = clNavy;
  Canvas->Rectangle(Width/2-100, 275, Width/2-50, 200);
 
// стена
  Canvas->Brush->Color = clOlive;
  Canvas->Rectangle(Width/2-225, 275, Width/2+75, 525);
 
// окно
  Canvas->Brush->Color = clBlue;
  Canvas->Rectangle(Width/2-200, 325, Width/2-75, 450);
 
// стекла
  Canvas->Brush->Color = clWhite;
  Canvas->Rectangle(Width/2-185, 340, Width/2-145, 380);
  Canvas->Rectangle(Width/2-130, 340, Width/2-90, 380);
  Canvas->Rectangle(Width/2-185, 395, Width/2-90, 435);
 
// дверь
  Canvas->Brush->Color = clLime;
  Canvas->Rectangle(Width/2-50, 375, Width/2+50, 525);
 
// ручка
  Canvas->Brush->Color = clBlack;
  Canvas->Rectangle(Width/2+30, 450, Width/2+40, 475);
 
// забор
  Canvas->Brush->Color = clGreen;
  points[0] = Point(Width/2-285, 360);
  points[1] = Point(Width/2-305, 400);
  points[2] = Point(Width/2-265, 400);
  deck(points, 0);
  deck(points, 40);
  deck(points, 340);
  for (int i = 0; i < 4; i++)
    deck(points, 40);
 
// надпись
  Canvas->Brush->Color = clOlive;
  Canvas->TextOutW(Width/2-30, 360, "C++ Builder");
}