#pas
procedure THIMouseEvent._work_doClick;
var b:byte;
    pos:TPoint;
    inp: TInput;                                                                //test
    mi: TMouseInput;                                                            //test
begin
   b := ReadInteger(_Data,_data_Button,_prop_Button);
//   GetCursorPos(pos);
//   mouse_event(_mdown[b],pos.x,pos.y,0,0);
//   mouse_event(_mup[b],pos.x,pos.y,0,0);
   ZeroMemory(@mi, sizeof(mi));                                                 //test
   ZeroMemory(@inp, sizeof(inp));                                               //test
   mi.dwFlags:= _mdown[b];                                                      //test
   inp.mi := mi;                                                                //test
   SendInput(b,inp,sizeof(inp));                                                //test
   mi.dwFlags:= _mup[b];                                                        //test
   inp.mi := mi;                                                                //test
   SendInput(b,inp,sizeof(inp));                                                //test
end;