TPoint BeginPos;        // 按下滑鼠左鍵後的起始座標
TPoint EndPos;                // 移動滑鼠時的座標
bool DragFlag=false;        // 是否按下滑鼠鍵拖曳的檢查旗號    void __fastcall TForm1::Image1MouseDown(TObject *Sender,
      TMouseButton Button, TShiftState Shift, int X, int Y)
{
    if(Button == mbLeft){        // 按左鍵才處理
        DragFlag = true;        // 設定檢查旗號            // 設畫筆為 xor 模式
        Image1->Picture->Bitmap->Canvas->Pen->Mode = pmXor;            // 記錄座標資訊
        BeginPos.x = X;
        BeginPos.y = Y;
        EndPos.x = X;
        EndPos.y = Y;            // 繪製第一個區塊 (因為座標相同，似乎可省略本步驟)
        Image1->Picture->Bitmap->Canvas->Rectangle(BeginPos.x, BeginPos.y, EndPos.x, EndPos.y);            // 設游標樣式為十字形
        Screen->Cursor = crCross;
    }
}
//----------------------------------------------------    void __fastcall TForm1::Image1MouseMove(TObject *Sender, TShiftState Shift,
      int X, int Y)
{
    if(DragFlag){
        // 清除 (還原) 前一次繪製的區域
        Image1->Picture->Bitmap->Canvas->Rectangle(BeginPos.x, BeginPos.y, EndPos.x, EndPos.y);            // 記錄變更後的座標位置
        EndPos.x = X;
        EndPos.y = Y;            // 繪製新的標註區域
        Image1->Picture->Bitmap->Canvas->Rectangle(BeginPos.x, BeginPos.y, EndPos.x, EndPos.y);
    }
}
//----------------------------------------------------    void __fastcall TForm1::Image1MouseUp(TObject *Sender, TMouseButton Button,
      TShiftState Shift, int X, int Y)
{
    if(DragFlag){
        DragFlag=false;        // 清除檢查旗號
        Screen->Cursor = crDefault;        // 恢復游標形狀
    }
}
//----------------------------------------------------