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