Inno setup Inno设置中数据输入的端口范围验证

我尝试设置从安装中的用户输入接受的特定值范围。例如，端口字段仅接受范围为10000-20000

我尝试在

NextButtonClick

或其他中使用此条件。我在Pascal文档中搜索了一下，但没有找到如何做到这一点，否则在这里之前就没有人问过为特定范围设置数据验证的问题

我的代码如下：

[代码]
变量
AdminDataPage:TInputQueryWizardPage；
名称、超级密码、服务器名称、服务器端口：字符串；
函数CreateAdminDataPage（）：整数；
开始
AdminDataPage:=CreateInputQueryPage（wpSelectDir，'必需信息'，''）；
AdminDataPage.Add（'Name'，False）；
AdminDataPage.Add（'SuperPassword'，True）；
AdminDataPage.Add（'ServerName'，False）；
AdminDataPage.Add（'ServerPort'，False）；
结束；
过程CreateAdminDataPage（）；
开始
CreateDataInputPage（）；
结束；
函数NextButtonClick（CurPageID:Integer）：布尔值；
开始
如果CurPageID=AdminDataPage.ID，则
开始
名称：=AdminDataPage.Value[0]；
SuperPassword:=AdminDataPage.values[1]；
ServerName:=AdminDataPage.values[2]；
ServerPort:=AdminDataPage.values[3]；
结束；
结束；

只需验证输入，显示错误消息，并确保

NextButtonClick

事件函数返回

False

：

函数NextButtonClick（CurPageID:Integer）：布尔；
变量
ServerPortInt：整数；
开始
结果：=真；
如果CurPageID=AdminDataPage.ID，则
开始
ServerPort:=AdminDataPage.Values[3]；
ServerPortInt:=strotintdef（ServerPort，-1）；
如果（服务器端口<10000）或（服务器端口>20000），则
开始
MsgBox（'请输入10000-20000范围内的端口'，mbError，MB_OK）；
WizardForm.ActiveControl:=AdminDataPage.Edits[3]；
结果：=假；
结束；
结束；
结束；