void __fastcall TForm1::Image1MouseMove(TObject *Sender, TShiftState Shift,
       int X, int Y)
 {
    if (Shift.Contains(ssLeft))
    {
         // 여기서 Canvas는 Form1->Canvas가 됩니다.
         Canvas->LineTo(X, Y);

         //그냥  Image1->Canvas->LineTo ... 하시면 됩니다.
       Image1->Canvas->LineTo(X, Y);
    }
}

그럼..

햇님 님이 쓰신 글 :
: 안녕하세요
:
: 이미지위에 마우스 좌측을 눌러 움직이면 그림을 그리도록 하였습니다
:
: 근데 이미지 위에 그려지는 것이 아니라 엉뚱한 위치에 그려지네요
:
: Form 0,0좌표를 기준으로 그리고 잇는 거 같은데 어떻게 하면 해결이 될까요 ??
:
: 이상현상은 첨부파일로 올렸습니다.
:
: 초보자 입니다 쉬운 설명 부탁드릴께요 ^^
:
: void __fastcall TForm1::Image1MouseMove(TObject *Sender, TShiftState Shift,
:       int X, int Y)
: {
:  if (Shift.Contains(ssLeft))
:  {
:         Canvas->LineTo(X, Y);
: }
:
:
:    Image1->Canvas->Pen->Color=clWhite;
:    Image1->Canvas->Pen->Width=1;
:    Image1->Canvas->MoveTo(10,Y);
:    Image1->Canvas->LineTo(10,Y);