Source position: ptcmouse.pp line 39
procedure GetMouseState(
var x: LongInt;
var y: LongInt;
var buttons: LongInt
);