ButtonClick

[alex0097]

Народ Вообщем такая вот проблема, хочу что бы сначала нажимал клик потом ждал 20 секунд. И закрывал программу.
Команда sleep(10000); действует на весь ButtonClick.

procedure TForm1.Button2Click(Sender: TObject);
var
p:Tpoint;
begin
P:=WebBrowser1.ClientToScreen(Point(100, 127));
setCursorPos(p.X,p.Y);
mouse_event(mouseeventf_leftdown, 0, 0, 0, 0);
mouse_event(mouseeventf_leftup, 0, 0, 0, 0);
sleep(10000);
Timer2.Enabled:=False;
close
end;

[Stilet]

procedure TForm1.Timer2(Sender: TObject);
var
p:Tpoint;
begin
P:=WebBrowser1.ClientToScreen(Point(100, 127));
setCursorPos(p.X,p.Y);
mouse_event(mouseeventf_leftdown, 0, 0, 0, 0);
mouse_event(mouseeventf_leftup, 0, 0, 0, 0);
Timer2.Enabled:=false;
halt;
end;

procedure TForm1.Button2Click(Sender: TObject);
var
p:Tpoint;
begin
Timer2.interval:=10000
Timer2.Enabled:=true;
close
end;