Блок-схема

   // Уменьшение

TPoint M[9];

       M[0].x=50/1.5;   M[0].y=90/1.5;

       M[1].x=60/1.5;   M[1].y=65/1.5;

       M[2].x=90/1.5;    M[2].y=65/1.5;

       M[3].x=65/1.5;   M[3].y=45/1.5;

       M[4].x=80/1.5;     M[4].y=20/1.5;

       M[5].x=50/1.5;   M[5].y=35/1.5;

       M[6].x=20/1.5;    M[6].y=20/1.5;

       M[7].x=35/1.5;    M[7].y=45/1.5;

       M[8].x=10/1.5;    M[8].y=65/1.5;

       M[9].x=40/1.5;    M[9].y=65/1.5;

// Первоначальный Рисунок

 Canvas->MoveTo(x0+M[0].x,y0-M[0].y);

Canvas->LineTo(x0+M[1].x,y0-M[1].y);

Canvas->LineTo(x0+M[2].x,y0-M[2].y);

Canvas->LineTo(x0+M[3].x,y0-M[3].y);

Canvas->LineTo(x0+M[4].x,y0-M[4].y);

Canvas->LineTo(x0+M[5].x,y0-M[5].y);

Canvas->LineTo(x0+M[6].x,y0-M[6].y);

Canvas->LineTo(x0+M[7].x,y0-M[7].y);

Canvas->LineTo(x0+M[8].x,y0-M[8].y);

Canvas->LineTo(x0+M[9].x,y0-M[9].y);

Canvas->LineTo(x0+M[0].x,y0-M[0].y);

 }

Перемещение в заданные точки и рисование линий между ними

Canvas->MoveTo;

Canvas->LineTo;

Ввод координат вершин: M[0].x;M[0].y – M[9].x;M[9].y