Рисование линии

void __fastcall TForm1::Image1MouseDown(TObject *Sender,
      TMouseButton Button, TShiftState Shift, int X, int Y)
{
 if (Shift.Contains(ssLeft))//åñëè íàæàòà ëåâàÿ
{
//Image1->Canvas->Brush->Color=clRed;
Image1->Canvas->MoveTo(X,Y);//íà÷àëî ëèíèè
 
}
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::Image1MouseMove(TObject *Sender, TShiftState Shift,
      int X, int Y)
{
 
if (Shift.Contains(ssLeft))
{
//Image1->Canvas->Brush->Color=clRed;
Image1->Canvas->LineTo(X,Y);//ðèñóåì
}
}
//----------------------------

TForm1 *Form1;
int x,y;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Image1MouseDown(TObject *Sender,
      TMouseButton Button, TShiftState Shift, int X, int Y)
{
if (Shift.Contains(ssLeft))//если нажата левая
{
Image1->Canvas->MoveTo(X,Y);//начало линии
x=X;
y=Y;
}
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Image1MouseMove(TObject *Sender, TShiftState Shift,
      int X, int Y)
{
if (Shift.Contains(ssLeft))
{
//Image1->Canvas->Brush->Color=clGreen;
Image1->Canvas->FillRect(Rect(0,0,Image1->Width,Image1->Height));//очищаем
//Image1->Canvas->Pen->Color=clRed;
Image1->Canvas->MoveTo(x,y);
Image1->Canvas->LineTo(X,Y);//рисуем
}
}