bool Drawing; 
TPoint StartPoint,OldPoint,EndPoint; 
void __fastcall DrawRect(int X1,int Y1,int X2,int Y2);

//Add this line in the constructor 
__fastcall TForm1::TForm1(TComponent* Owner) 
  : TForm(Owner) 
{ 
  Drawing=false; 
} 
//--------------------------------------------------------------------------- 
void __fastcall TForm1::Image1MouseDown(TObject *Sender, 
      TMouseButton Button, TShiftState Shift, int X, int Y) 
{ 
  //erase previous rectangle 
 DrawRect(StartPoint.x,StartPoint.y,EndPoint.x,EndPoint.y); 
  //start drawing a new rect 
  StartPoint.x=X; 
  StartPoint.y=Y; 
  OldPoint.x=StartPoint.x; 
  OldPoint.y=StartPoint.y; 
  Drawing=true; 
} 
//--------------------------------------------------------------------------- 
void __fastcall TForm1::DrawRect(int X1,int Y1,int X2,int Y2) 
{ 
  Image1->Canvas->Pen->Style=psDot; 
  Image1->Canvas->Pen->Mode=pmNotXor; 
  Image1->Canvas->Rectangle(X1,Y1,X2,Y2); 
} 
//--------------------------------------------------------------------------- 
void __fastcall TForm1::Image1MouseMove(TObject *Sender, TShiftState Shift,
    int X, int Y) 
{ 
  if(Drawing) 
  { 
    DrawRect(StartPoint.x,StartPoint.y,OldPoint.x,OldPoint.y); 
    DrawRect(StartPoint.x,StartPoint.y,X,Y); 
    OldPoint.x=X; 
    OldPoint.y=Y; 
  } 
} 
//--------------------------------------------------------------------------- 
void __fastcall TForm1::Image1MouseUp(TObject *Sender, TMouseButton Button,
    TShiftState Shift,int X, int Y) 
{ 
  EndPoint.x=X; 
  EndPoint.y=Y; 
  Drawing=false; 
}