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

[S_lip]

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

Код

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

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

[S_lip]

volvo, klem4, большое спасибо Вам за помошь!!! Всё работает!

Сообщение отредактировано: S_lip - 28.11.2006 21:35