Estou codificando um botão personalizado derivado de tExCustomControl que, por sua vez, é derivado de tCustomControl. O componente tExCustomControl, cuida da pintura e possui um tLabel interno para exibição de legendas (minha opção para o tLabel era facilitar o subjacente ao caractere do acelerador). No tExCustomControl, manipulo o evento "keyUp" como este:

      if Char (Key) = AcceleratorChar then
          if AltKeyIsDown then
              if Assigned (OnClick) then
                 OnClick (Self);

Isso funciona bem, exceto por uma coisa: enquanto mantém pressionada a tecla Alt e depois de pressionar e pressionar a tecla aceleradora, recebo um som de "entrada incorreta".

Por que esse som é reproduzido? Como posso evitar isso?

Desde já, obrigado.