delphi 循环点击网页问题,第二次无法完成点击

Question

我写了一段代码 
是实现循环点击网页某一点的问题
可是实现的时候  第一次点击正常 第二次以后的点击就点击实现不了了  
放出代码  求高手 大虾 帮助下要循环点击
====
procedure TForm1.FormCreate(Sender: TObject);
begin
//timer1.Enabled:=false;
end;procedure TForm1.Button1Click(Sender: TObject);
begin
webbrowser1.Navigate(edit3.Text);
end;procedure TForm1.Button2Click(Sender: TObject);
begin
if checkbox1.Checked then
button3.Click
else showmessage('no')  ;
end;procedure TForm1.Timer1Timer(Sender: TObject);
begin
webbrowser1.Navigate('http://www.baidu.com');
end;procedure TForm1.Button3Click(Sender: TObject);
var x,y:integer;
begin
webbrowser1.Navigate(edit1.Text);
SetCursorPos(123,228);
sleep(3000);
SetCursorPos(627,302);
sleep(3000);
SetCursorPos(1043,289);
sleep(3000);
SetCursorPos(944,625);
sleep(3000);
  x:= strtoint(edit1.Text);
  y:= strtoint(edit2.Text);
  SetCursorPos(x,y);
  Mouse_Event(MOUSEEVENTF_LEFTDOWN,X,Y,0,0);
  Mouse_Event(MOUSEEVENTF_LEFTUP,X,Y,0,0)  ;
  timer1.Enabled:=true;end;procedure TForm1.WebBrowser1NewWindow2(Sender: TObject;
  var ppDisp: IDispatch; var Cancel: WordBool);
begin
ppDisp:=WebBrowser2.Application;
end;procedure TForm1.WebBrowser2BeforeNavigate2(Sender: TObject;
  const pDisp: IDispatch; var URL, Flags, TargetFrameName, PostData,
  Headers: OleVariant; var Cancel: WordBool);
begin
WebBrowser1.Navigate(URL);
Cancel:=True;
end; 问题补充：delphi问题

Answer 1

http://topic.csdn.net/u/20090915/14/5b0c9034-8378-42c0-906a-bcb3cdaf4889.html
和这个不是一个问题么不好意思，那个贴里是手敲的代码，没在DELPHI里试
应该是：Application.ProcessMessages;
DELPHI不是有代码提示么

Answer 2

Sleep会卡死主进程，使Navigate执行不了

Answer 3

第二次点击的时候 就是在要点击的位置晃一下 点不进去 郁闷  把sleep(111)全部去掉会不会好一点？

Answer 4

全部去掉了点击时候的sleep 循环第二次点击的时候 还是点击不进去 郁闷 
这是为啥呢