[s0Creator]

Приблизительно так:

Код:

  case Key of
    '0'..'9': ;
  else
    begin
      Key := #0;
      ShowMessage('Недопустимый элемент!');
    end;
  end;