delphi如果模拟鼠标点击指定坐标。

如题，我的点击器是在不影响用户正常工作下隐藏操作的，下面是我的点击代码。拜求高手指教更真实点的模拟鼠标点击事件。
procedure TForm1.Button4Click(Sender: TObject);
begin
form1.Caption:='点击';
timer3.Enabled:=false;
SendMessage(GetWindow(GetWindow(WebBrowser1.Handle,   GW_CHILD),   GW_CHILD),WM_LBUTTONDOWN,
MK_LBUTTON,  MAKELONG(nx,ny));
sleep(500);
SendMessage(GetWindow(GetWindow(WebBrowser1.Handle,   GW_CHILD),   GW_CHILD),WM_LBUTTONUP,
MK_LBUTTON,  MAKELONG(nx,ny)) ;
PostMessage(GetWindow(GetWindow(WebBrowser1.Handle,   GW_CHILD),   GW_CHILD),WM_LBUTTONDOWN,
MK_LBUTTON,  MAKELONG(nx,ny));
sleep(500);
PostMessage(GetWindow(GetWindow(WebBrowser1.Handle,   GW_CHILD),   GW_CHILD),WM_LBUTTONUP,
MK_LBUTTON,  MAKELONG(nx,ny)) ;
timer9.Enabled:=true;
end;