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

[S_lip]

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

Код

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

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

[volvo]

Тогда вот так:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    procedure FormCreate(Sender: TObject);
    procedure FormKeyPress(Sender: TObject; var Key: Char);
  private
    { Private declarations }

    waiting: tlabel; // <--- Ожидающий нажатия Label
    procedure get_ready(sender: tobject);
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

// Это то, что должно происходить по onClick на Label ...
procedure tform1.get_ready(sender: tobject);
var key: char;
begin
  waiting := (sender as tlabel);
  waiting.Caption := '?';
end;

procedure TForm1.FormCreate(Sender: TObject);
var i: integer;
begin
  // присвоить всем лейблам на форме нужный onClick ...
  for i := 0 to componentcount - 1 do
    if components[i] is tlabel then
      (components[i] as tlabel).OnClick := get_ready;

  // Никто ничего не ждет, пока не выбран Label
  waiting := nil;
end;

procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
begin
  if key in ['0' .. '9'] then
    if waiting <> nil then begin // Кто-то ждет нажатия ...
      waiting.Caption := key;
      waiting := nil; // Прекратить ожидание
    end;
end;

end.