只输入数字和退格,删除

  if not (key in ['0'..'9',#13,#8,#46]) then
     key := #0;