在窗体里等比例在屏幕上绘图

dc:=tcanvas.Create;
dc.Handle:=GetDC(0);
.
.
.
.
procedure TForm1.Image1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
   if down then
   begin
     pt.X:=X;
     pt.Y:=Y;
     ClientToScreen(pt);
     dc.LineTo(pt.X,pt.y);
   end;
end;
我把屏幕做为窗体背景,等比例充满窗体,想在窗体上绘图,在屏幕上显示,可是无论如何范围也只有窗体大小,除非鼠标移动出窗体外才可以在屏幕其他地方绘图.我不想让鼠标移动出窗体,当鼠标在窗体右下角时,绘出的笔也在屏幕右下角,这个问题应该怎么解决?