Udføre museklik

procedure TForm1.Button1Click(Sender: TObject);
var
pt:Tpoint;
begin
  GetCursorPos(pt);
  MOUSE_Event(MOUSEEVENTF_ABSOLUTE or MOUSEEVENTF_LEFTDOWN, Pt.x, Pt.y, 0, 0); //Ned
  MOUSE_Event(MOUSEEVENTF_ABSOLUTE or MOUSEEVENTF_LEFTUP, Pt.x, Pt.y, 0, 0); //Op
end;