关于mouse的问题！(50分)

mouse_event(MOUSEEVENTF_MOVE,30,30,0,0);
模似的mouse移动看不到过程，只从一点跳至另一点。怎么才能做到一个真正的
mouse move动作？
给个例子看看，一定给分！

var
; dc :HDC;//定义dc before use

procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
; Y: Integer);
begin
; Edit1.Text := IntToStr(X); ;Edit2.Text := IntToStr(Y);
; TextOut(dc,X,Y,'.',1);
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
; dc := GetDC(Handle);
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
; if dc<>0 then
; ; ReleaseDC(Handle, dc);
end;

j:=0;
for i:=0 to 30 do
begin
;mouse_event(MOUSEEVENTF_MOVE,i,j,0,0);
;inc(j);
;for k:=0 to 9000000 do;//延时
end;

多人接受答案了。