如何实现象PHOTOSHOP中的手指 的功能？(100分)

如何实现象PHOTOSHOP中的手指 的功能？请大虾指点迷津。有原码另加100分

滚屏 ：
var
Draw : Boolean;
StartPt,MovePt : TPoint;

procedure TForm1.Image1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
if Button=mbLeft then
begin
Draw :=True;
StartPt :=Point(x,y);
end;
end;

procedure TForm1.Image1MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
if Draw then
begin
MovePt :=Point(x,y);
Form1.VertScrollBar.Position :=Form1.VertScrollBar.Position+StartPt.y-MovePt.y;
Form1.HorzScrollBar.Position :=Form1.HorzScrollBar.Position+StartPt.x-MovePt.x;
end;
end;

procedure TForm1.Image1MouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
Draw := False;
end;

学~

卷起千堆雪tyn大虾，不好意思我可能没有表达清楚，我指的是其中的涂抹工具。不知可否赐教？

请高手赐教！这是我第一次提问题，不要让我失望。

ha ! franz 好久不见 近来在做什么呀！ 听说你一个月那3000RMB 是不是啊！
以后小弟要靠你啦！
有空的话给我发个email!

怎么没有高手呀？。。。。。。。。。。。。

算了吧。就这样结束吧。看来是没有结果了。