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