[Тупой]

У мя вот вопрос: Мне нада чтобы в компонент Edit пользователь не смог вводить ничего кроме чисел и естественно Бэкспейса - это то понятно:

Код:

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
If not (Key In['0'..'9',#8]) then
begin
  MessageDlg('Ошибка ввода!Введите число!',mtError,[mbOk],0);
  key:=#0;
end;
end;

А вот мне нада еще чтоб можно было ввести -1 и -2 - как это сделать?