[Лунтик-Некрофил]

Как можно сделать, чтобы Edit не писал определённые символы? Например мне надо сделать чтобы в Edit можно было писать только цифирные знаки, а все остальные удалялись.
Как я это сделал:

Код:

1 2 3 4 5 6 7 8

const Ex : set of ansichar = [тут приходится перебирать все знаки кроме цифер]; var i : integer; begin     for i := 1 to length(edit1.text) do     if edit1.text[i] in Ex then begin         ShowMessage('Неверное число');         Edit1.text:=''; end;

Подскажите пожалуйста, как можно облегчить работу? Иначе 5+ за такую массивную прогу и не светит
Заранее благодарен, Лунтик