能告诉我怎么样实现photoshop中剪切时的光标效果,

能告诉我怎么样实现photoshop中剪切时的光标效果, Delphi / Windows SDK/API
http://www.delphi2007.net/DelphiMultimedia/html/delphi_20061007113228267.html
在图像处理时,怎么实现类似于photoshop剪切时的那种效果,就是在光标移动时那个亮的矩形框会不断的变化  
  我在用做时始终不得其解  
  我用多一个image在每次画框边时先把要操作的那个  
        image2.Picture:=image1.Picture;  
        rectto:=rect(0,0,image1.Width,image1.Height);  
        image1.Canvas.CopyRect(rectto,image2.Canvas,rectto);  
        image1.Canvas.MoveTo(x,y);  
        image1.Canvas.LineTo(cut_x,y);  
        image1.Canvas.LineTo(cut_x,cut_y);  
        image1.Canvas.LineTo(x,cut_y);  
        image1.Canvas.LineTo(x,y);  
   
  但还是不能实现那种效果