er">EventArgs</span> <span class="Other">=</span> <span class="Keyword">object</span>
  <span class="Keyword">case</span> <span class="Identifier">kind</span><span class="Operator">*</span><span class="Other">:</span> <span class="Identifier">EvKind</span>
  <span class="Keyword">of</span> <span class="Identifier">evKey</span><span class="Other">:</span>
      <span class="Identifier">key</span><span class="Operator">*</span><span class="Other">:</span> <span class="Identifier">keymap</span><span class="Oth