type
  TMouseButton = (mbLeft, mbRight, mbMiddle);