Source position: xinput.pp line 1083
function XCloseDevice(
display: PDisplay;
device: PXDevice
):cint;