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

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

Код:

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+ за такую массивную прогу и не светит
Заранее благодарен, Лунтик