Аналог Readkey, как считать клавишу? Опции

[S_lip]

Добрый день!
У меня небольшая проблема: есть Form и Label по середине. Нужно, чтобы при нажатии на этот Label пользователь ввел кнопку в пределах от 0 до 9. На языке Паскаля это будет выглядеть так:

Код

uses crt;
var
  c:char;
begin
  repeat
    c:=readkey;
  until (c>'0') and (c<'9');
end.

А как же это должно выглядеть на Делфи?

[klem4]

В лейбл ничего вводить нельзся (label анг. метка) компонент служит для вывода информации, напиши точнее что тебе нужно, что за задание ?

в некоторых компонентах можно обрабатывать событие OnKeyPress (OnKeyDown) и анализировать в нем нажатую клавишу