关于图片框画线的问题

在网上看教程[code=unit Unit1;interfaceuses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  ExtCtrls;type
  TForm1 = class(TForm)
    procedure FormPaint(Sender: TObject);
    procedure FormMouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
  private
    BKMap:TBitmap;
    { Private declarations }
  public
    { Public declarations }
  end;var
  Form1: TForm1;
  mX,mY: Integer;implementation{$R *.DFM}procedure TForm1.FormPaint(Sender: TObject);
begin
  With Canvas do
  begin
    Draw(0,0,BKMap);
    MoveTo(0,mY);
    LineTo(Width,my);
    Moveto(mX,0);
    LineTo(mX,Height);
  end;
end;procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
var
  r:Trect;
begin
  mX:=x;
  mY:=y;
  repaint;
end;
procedure TForm1.FormDestroy(Sender: TObject);
begin
  BKMap.Free;
end;end.(Pascal)][/code]可以在窗体上画一个十字线,并且跟随鼠标移动,但是我现在想在图片框的图片上实现这种效果,
我把上面的其中一句代码改为:
[code=procedure TForm1.FormPaint(Sender: TObject);
begin
  With Image1.Canvas do
  begin
    Draw(0,0,BKMap);
    MoveTo(0,mY);
    LineTo(Width,my);
    Moveto(mX,0);
    LineTo(mX,Height);
  end;
end;
(Pascal)][/code]为什么不可以啊,我是DELHI的初学者,希望各位老大多多指教!