文本框中输入类型判断的两个问题

Question

程序如下：procedure TUserManageForm.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
  if not(key in['1'..'9'])then
  begin
    showmessage('必须输入数字');
    edit1.Clear;
    edit1.SetFocus;
  end;
end;现在我输入一个非数字，例如一个字母的时候，程序虽然会提示“必须输入数字”，但当我点击对话框的确定按钮之后，文本框的内容却变成了那个字母。我的本意是想让程序提示完“必须输入数字”之后，文本框的内容清空，而现在却没有清空。如何才能达到我想要的那个效果哪？？？？？？还有，当我输入一个汉字的时候，会提示两次“必须输入数字”。如何才能让它提示一次哪？？？？？

Answer 1

if not(key in['1'..'9'])then
  begin
    showmessage('必须输入数字');
    key:=0; 
  end;

Answer 2

procedure TUserManageForm.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
  if not(key in['1'..'9'])then
  begin   key=#0;        showmessage('必须输入数字');
    edit1.Clear;
    edit1.SetFocus;
  end;
end;