>>582
if (AnsiPos(Key, '1234567890-')=0)or(Key=#13)or(Key=#8) then
  Key:=#0;