编辑框内容验证

[Code]
var
Edit: TEdit;
PortID:Integer;

 

function CreatePortPages(const AfterID: Integer):Integer;
var
Labelo:TLabel;
Page: TWizardPage;
begin
      Page := CreateCustomPage(AfterID, '设置网站端口', '网站端口');
      Labelo := TLabel.Create(Page);
      Labelo.Left := ScaleX(20);
      Labelo.Top :=  ScaleY(20);
      Labelo.Font.size:=9;
      Labelo.Font.name:='宋体';
      Labelo.Caption := '请填写端口:';
      Labelo.Parent := Page.Surface;

      Edit := TEdit.Create(Page);
      Edit.Left := Labelo.Left;
      Edit.Top :=  Labelo.Top+Labelo.Height+ScaleY(10);
      Edit.Width := Page.SurfaceWidth;
      Edit.Text := '80';
      Edit.Parent := Page.Surface;
      Result:= Page.ID;
end;

 

procedure InitializeWizard();
begin