[salzer]

как разрешить стирать

Код:

if (Key in ['0'..'9']) or (Key=#013) then a:=1 else key :=#0;