[Yurk@]

1. Тема создана не в том разделе.
2. Мне кажеться так будет проще:
в свойствах твоего Edit установить свойство MaxLength=5, а обработчике:

Код:

case Key of
'0'..'9',#8:;
else Key:=#0
end;