Превращение Edit в "EditFloat"

Calm

Здравствуйте!
Частенько нужно, в эдитах вводить суммы.
Как можно отсечь возможность ввода символов отличных от символов цифр?
Интрересует простой способ или другие варианты реализации подобного.
Была попытка на событии OnKeyUp Edit1 писать:
case key of
96,97,98,99,100,101,102,103,104,105,
48,49,50,51,52,53,54,55,56,57:Edit1.Text:=Edit1.Text
else
begin
for i:=1 to length(Edit1.Text) do
begin
delete(Edit1.Text,pos(LowerCase(chr(key)),Edit1.Text),1);
end;
end;
end;
Работает только для английской раскладки и не очень красиво

Vano

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
  if not (Key in ['0'..'9']) then
    Key:=#0;
end;

Оно ?

Calm

Вариант
Только в Делфе работает, а в среде FastReport ругается если условие истина