[Bug 40988] mouse_event doesn't work

https://bugs.winehq.org/show_bug.cgi?id=40988

--- Comment #1 from proggi  ---
SendInput also doesn't work

var
    TI : TInput;
  begin
    TI.Itype := 0;
    TI.mi.dx := 10000;
    TI.mi.dy := 10000;
    TI.mi.mouseData := 0;
    TI.mi.time := 0;
    TI.mi.dwFlags := MOUSEEVENTF_MOVE+MOUSEEVENTF_ABSOLUTE;
    SendInput(1, TI, sizeof(TI));
    TI.mi.dwFlags := MOUSEEVENTF_LEFTDOWN;
    SendInput(1, TI, sizeof(TI));
    TI.mi.dwFlags := MOUSEEVENTF_LEFTUP;
    SendInput(1, TI, sizeof(TI));
  end;