Ayuda con Edit

[[seoane]]

Primero, me acabo de fijar que estaba en el foro de C++ Builder y no en el de delphi , pero supongo que con los cambios apropiados .... Segundo la segunda comparación debería de ser:

Código Delphi [-]
if Key in ['1'..'5'] then

El "copiar y pegar" es lo que tiene. Y tercero si que es necesaria para diferenciar entre un numero y la tecla de borrar, de lo contrario esta ultima no funcionaria. Por que no se puede borrar nada si el edit esta vacío