Прекращение рисования

Canvas->MoveTo(x, y);
Canvas->LineTo(x1, y2);

Canvas->Pen->Color = clRed;
    Canvas->Pen->Width = 3,5;
    Canvas->MoveTo(8, 190);
    Canvas->LineTo(8, 174);
    Canvas->MoveTo(8, 182);
    Canvas->LineTo(98, 182);
    Canvas->MoveTo(102, 182);
    Canvas->LineTo(107, 182);
    Canvas->MoveTo(111, 182);
    Canvas->LineTo(136, 182);
    Canvas->MoveTo(146, 182);
    Canvas->LineTo(210, 182);
    Canvas->MoveTo(146, 172);
    Canvas->LineTo(210, 108);
    Canvas->MoveTo(214, 108);
    Canvas->LineTo(219, 108);
    Canvas->MoveTo(223, 108);
    Canvas->LineTo(303, 108);

Canvas->MoveTo(214, 182);
    Canvas->LineTo(219, 182);
    Canvas->MoveTo(223, 182);
    Canvas->LineTo(303, 182);
    Canvas->MoveTo(323, 182);
    Canvas->LineTo(403, 182);

TForm1 *Form1;
 
 bool fd;
TRect ochist(0,0,170,150);
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{ Panel1->DoubleBuffered=True;
 Image1->Canvas->FloodFill(0,0,clWhite,fsBorder);
 Image1->Canvas->Pen->Width=3;
 Image1->Canvas->Pen->Color=clBlue;
 Panel1->Color=clGreen;
}
void __fastcall TForm1::Image1MouseMove(TObject *Sender, TShiftState Shift,
      int X, int Y)
{
if (fd) Image1->Canvas->LineTo(X,Y);
int minx=110,maxx=110,maxy=110,miny=110;
if (fd){
if (minx>X)  minx=X;
if (maxx<X)  maxx=X;
if (miny>Y) miny=Y;
if (maxy<Y) maxy=Y;
 Label1->Caption=minx;
 Label2->Caption=maxx;
 Label3->Caption=miny;
 Label4->Caption=maxy;}
}
void __fastcall TForm1::Image1MouseDown(TObject *Sender,
      TMouseButton Button, TShiftState Shift, int X, int Y)
{
     if (Button==0){ fd=true;
         Image1->Canvas->MoveTo(X,Y); }
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Image1MouseUp(TObject *Sender, TMouseButton Button,
      TShiftState Shift, int X, int Y)
{
  fd=false;
 
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
  Image1->Canvas->FillRect(ochist);
}