Source position: mouseh.inc line 22
type TMouseEvent = packed record
buttons: Word;
x: Word;
y: Word;
Action: Word;
end;