送分：如何限制edit框只能输不大于12的正数

Question

我们知道：
procedure Tform1.edtRecCountKeyPress(Sender: TObject; var Key: Char); begin   if ((key in ['0'..'9'] = false) and (word(key) <> VK_BACK)) then     key := #0; end; 
用来限制只能输入数字，但怎么输入不大于12的正数（是正数哦）呢？
送分了`~
只送给第一个答对的人。成功后立即结帖！

Answer 1

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
var
  s : string;
begin
  try
    if key in ['0'..'9'] then
      s := edit1.Text + key;
    if strtoint (s) > 12 then
      key := #0;
  except on e : exception do
    showmessage ('error number');
  end;
end;