if (Button == mbLeft) Image1->Canvas->LineTo(X, Y); //Рисуем линию
if (Button == mbRight) Image1->Canvas->MoveTo(X, Y); //Переносим первую точку линий