case myType of
NSKeyDown : if event.keycode < 256 then keyboard[event.keycode]:=true;
NSKeyUp : if event.keycode < 256 then keyboard[event.keycode]:=false;
NSFlagsChanged : if event.keycode < 256 then keyboard[event.keycode]:=not keyboard[event.keycode];
NSLeftMouseDown: mouseL:=true;
NSRightMouseDown: mouseR:=true;
NSLeftMouseUp: mouseL:=false;
NSRightMouseUp: mouseR:=false;
NSScrollWheel : mouseWheel:=round(event.deltaY);
end;