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);
}
//---------------------------------------------------------------------------
//Горячие клавиши
void __fastcall TForm1::FormCreate(TObject *Sender)
{
RegisterHotKey(Handle,1,0,VK_LEFT);