在Edti输入框里只能输入数字的控制

procedure TMainForm.Edit2KeyPress(Sender: TObject; var Key: Char);
begin
  if   not   (key   in   ['0'..'9',#8])   then  
  begin  
      key   :=   #0;
      showmessage('请您勿必输入数字');
  end;
end;