[NIch]

Код:

procedure TForm1.Ediе1.KeyPress (Sender: TObject; var Key: Char);
begin
  case Key of
    '0' .. '9', #8: ; // цифры и <Backspace> ничего не делать
  else
    Key := Chr(0); // иначе символ не отображать
  end;
end;

Данный код блокирует нажития всех символов кроме цифр и Backspace...

Код:

procedure TForm1.Ediе1.KeyPress (Sender: TObject; var Key: Char);
begin
  case Key of
    '0' : ShowMessage('Нажата цыфра 0');
    '1' : ShowMessage('Нажата цыфра 1');
    '2' : ShowMessage('Нажата цыфра 2');
  else
    Key  : ShowMessage('Нажата неизвестная клавиша');
  end;
end;

Данный код выводит сообщение о нажатой клавише...
Ну и все в таком духе во время обработки события OnKeyPress контролла Edit...