1:
2:
3:
4:
5:

Wenn du zahlen zwischen 1 und 10 eingeben kannst dann kannst du auch zwangsläufig die Zahl 12 eingeben. 
1. Eingabe: 1
2. Eingabe: 2
--------------
12					

1:
2:
3:
4:

procedure TForm1.Edit1KeyPress(sender: TObject; var key: Char);
begin
  if not (key in [#8, #9, #48 .. #57]) then key:=#0;
end;					

1:
2:
3:
4:
5:

var s:String;
begin
  s:= Edit1.Text;
  if s='' then Fehlermeldung
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:

procedure TForm1.Edit1KeyPress(Sender: TObject;
  var Key: Char);
begin
  if not (key in ['0'..'9',#8]) then     
    key:=#0;
end;

procedure TForm1.Edit1Change(Sender: TObject);
begin
if 10 < strtoint (edit1.text) then edit1.text:= inttostr(10);     
end;