procedure Form1OnMouseDown() Canvas.MoveTo(X,Y); : : proceduer Form1OnMouseUp() Canvas.LineTo(X,Y); : :