Source position: xinput.pp line 879
function XUngrabDevice(
display: PDisplay;
device: PXDevice;
time: TTime
):cint;