Отображение графических примитивов

void __fastcall TForm1::FormPaint(TObject *Sender)
{
  Canvas->Pen->Width = 2;
  Canvas->Pen->Color = clBlue;
  Canvas->MoveTo(200,10);
  Canvas->LineTo(10,100);
  Canvas->LineTo(10,250);
  Canvas->MoveTo(10,250);
  Canvas->LineTo(400,250);
  Canvas->LineTo(400,100);
  Canvas->LineTo(200,10);
  Canvas->MoveTo(10,100);
  Canvas->LineTo(400,100);
  Canvas->MoveTo(50,150);
  Canvas->LineTo(50,200);
  Canvas->LineTo(100,200);
  Canvas->LineTo(100,150);
  Canvas->LineTo(50,150);
  Canvas->MoveTo(150,150);
  Canvas->LineTo(250,150);
  Canvas->LineTo(250,250);
  Canvas->MoveTo(150,150);
  Canvas->LineTo(150,250);
  Canvas->MoveTo(350,150);
  Canvas->LineTo(300,150);
  Canvas->LineTo(300,200);
  Canvas->LineTo(350,200);
  Canvas->LineTo(350,150);
  Canvas->MoveTo(78,68);
  Canvas->LineTo(78,20);
  Canvas->LineTo(100,20);
  Canvas->LineTo(100,58);
  Canvas->MoveTo(175,50);
  Canvas->LineTo(175,80);
  Canvas->LineTo(195,80);
  Canvas->MoveTo(205,50);
  Canvas->LineTo(205,80);
  Canvas->MoveTo(225,50);
  Canvas->LineTo(205,65);
  Canvas->LineTo(225,80);
}