Запрет ввода определённых символов, Без использования маски ввода Опции

[Psychologist]

Всем доброго времени суток!

Возник такой вопрос:
как сделать так, чтобы в объект типа TMaskEdit можно было вводить только цифры?
И главное: маску ввода использовать нельзя.

[krox]

procedure TForm1.t2KeyPress(Sender: TObject; var Key: Char);
begin
case Key of
'0'..'9', #8: ;
 '-': if Length(t2.Text) <> 0 then Key := #0;
 else Key := #0
 end;
end;