type
TMouseButton = (mbLeft, mbRight, mbMiddle
);