Graphics::TBitmap *RectIma=new Graphics::TBitmap();
bool IsMouseDown;
TPoint start;
void __fastcall TForm1::Image1MouseDown(TObject *Sender,
      TMouseButton Button, TShiftState Shift, int X, int Y)
{
 IsMouseDown=true;
 Image1->Canvas->MoveTo(X,Y);
 start=TPoint(X,Y);
}
//---------------------------------------------------------------------------    void __fastcall TForm1::Image1MouseMove(TObject *Sender, TShiftState Shift,
      int X, int Y)
{
 if (IsMouseDown)
 {
  Image1->Picture->Assign(RectIma);
  Image1->Canvas->Pen->Color=clBlue;
  Image1->Canvas->Brush->Style=bsClear;
  Image1->Canvas->MoveTo(start.x,start.y);
  Image1->Canvas->LineTo(X,Y);
 }
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Image1MouseUp(TObject *Sender, TMouseButton Button,
      TShiftState Shift, int X, int Y)
{
 IsMouseDown=false;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormCreate(TObject *Sender)
{
 Image1->Canvas->Brush->Color=clWhite;
 Image1->Canvas->FillRect(Rect(0, 0, Image1->Width, Image1->Height));
 RectIma->Assign(Image1->Picture->Bitmap);
 Form1->DoubleBuffered=true;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormDestroy(TObject *Sender)
{
 delete RectIma;
}
//---------------------------------------------------------------------------