TImage에서 Stretch =true로 하면
    실세 Image가 가지고 있는 bitmap데이타가   TImage의 크기에 맞게 커지는것이 아닙니다.

    그냥 Bitmap데이타는 그 크기 그대로 있구..

    단지 화면에 보여줄때   확대 또는 축소해서 보여줍니다.


님께서 TImage위에서 마우스로 Drag해서 사각형을 그릴때
Stretch = false인경우에는 문제가 없지만

Stretch = true인경우에는
원본이미지 Bitmap의 크기에 많게 scale변환을 해줘야 합니다.

Image->Width 대 Image->Picture->Bitmap->Width

다음은 간단히 Form위에 TImage하나 올리고
TImage에다가 Bitmap파일 Designtime에 load한후에
MouseDown/Move/Up이벤트에   사각형을 그려봤습니다.
문론 Image의 Stretch는 true로 하구요

다음과 같이 Scale에 맞춰 좌표를 수정해서 그려주면
제대로 사각형이 그려집니다.

TPoint ptSt;
TPoint ptCur;

TPoint __fastcall TForm1::GetImageScalePoint(TPoint pt)
{
    int iOrgBmpW,iOrgBmpH;
    int iCurImgW,iCurImgH;

    iOrgBmpW=Image1->Picture->Bitmap->Width;
    iOrgBmpH=Image1->Picture->Bitmap->Height;

    iCurImgW=Image1->Width;
    iCurImgH=Image1->Height;

    int x,y;
    x= (iOrgBmpW*pt.x)/iCurImgW;
    y= (iOrgBmpH*pt.y)/iCurImgH;

    return Point(x,y);

}

void __fastcall TForm1::Image1MouseDown(TObject *Sender,
      TMouseButton Button, TShiftState Shift, int X, int Y)
{
    //
    Image1->Canvas->Brush->Style=bsClear;
    Image1->Canvas->Pen->Mode=pmNotXor;
    ptSt=GetImageScalePoint(Point(X,Y));
    ptCur=ptSt;
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Image1MouseMove(TObject *Sender, TShiftState Shift,
      int X, int Y)
{
    if(Shift.Contains(ssLeft))
    {
        Image1->Canvas->Rectangle(ptSt.x,ptSt.y,ptCur.x,ptCur.y);
        ptCur=GetImageScalePoint(Point(X,Y));
        Image1->Canvas->Rectangle(ptSt.x,ptSt.y,ptCur.x,ptCur.y);
    }
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Image1MouseUp(TObject *Sender, TMouseButton Button,
      TShiftState Shift, int X, int Y)
{
    if(Button==mbLeft)
    {
        Image1->Canvas->Rectangle(ptSt.x,ptSt.y,ptCur.x,ptCur.y);
        ptCur=GetImageScalePoint(Point(X,Y));
        Image1->Canvas->Pen->Mode=pmCopy;
        Image1->Canvas->Rectangle(ptSt.x,ptSt.y,ptCur.x,ptCur.y);
    }
}
//---------------------------------------------------------------------------

그럼..
  
초보자 님이 쓰신 글 :
: 패널 위에 TImage 로  bitmap 파일을 로딩해서
:
: 올려놓고
: 1) Stretch = true;
:
: 2) 확대된 이미지에  마우스로 드래그 하여 사각형을 그리면
:     마우스와 사각형 위치가 다릅니다.
:
: 아래 이미지스케일이라고 해서 사용해 보았지만  AScale 100 이상의 값을 넣으면  같은 현상 나타납니다.
:
: void __fastcall TForm::SetImageScale(int AScale)
: {
:     Image1->Width
:             =(Image1->Picture->Width  * AScale)/100;
:     Image1->Height
:             =(Image1->Picture->Height * AScale)/100;
:
:
: }
:
:
: 스케일 방법을 몰라서 문의 합니다.