我晕了，键值问题，恳请赐教

键值到底是ASCII还是BCD码呢？我问了几个人回答的我都吐血了，答什么的都有，还有 #跟数字是怎么回事啊？procedure TfrmAccInfoEdit.KMBMKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
beginif locklen > 0 then
  if kmbm.SelStart = locklen then
     if (key=46) or ((key>=37) and (key<=40)) then
        key := 0;
麻烦你给分析分析这函数。LOCKLEN是什么啊？我等，真诚的谢谢。
没力气在查了