Аналог 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]

Ну так и обрабатывай для Label1 событие OnClick, а для Form1 событие onKeyPress

procedure TForm1.Label1Click(Sender: TObject);
begin
  Label1.Caption := '?';
end;

procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
begin
  if (Key in ['0'..'9']) then
   Label1.Caption := Key;
end;