Inno setup 在“上显示选定驱动器上的可用磁盘空间”；选择目的地位置“；Inno设置页面

我正在使用Inno Setup创建安装程序，我的问题是：

如何添加自定义文本标签，如：“当前驱动器中的空间：XXX Mb”以及向导页面上所需的空间编号：

如果你能帮助我，那就太酷了。：）

用于查询可用磁盘空间：

var
FreeDiskSpaceLabel:TNewStaticText；
程序UpdateDiskSpaceLabel；
变量
路径，路径2：字符串；
免费，总计：Int64；
FreeGB：扩展；
S:字符串；
开始
路径：=值；
{安装路径通常不存在，}
{因此找到真正存在的第一个父路径}
当不存在时（路径）做什么
开始
路径2:=RemoveBackslash（提取文件路径（RemoveBackslash（路径））；
如果（路径2=''）或（路径2=路径），则中断；
路径：=路径2；
结束；
如果GetSpaceOnDisk64（路径、自由、总计），则
开始
FreeGB:=扩展（自由）/（1024*1024*1024）；
S:=格式（'所选驱动器上有%.1n GB可用空间'，[FreeGB]）；
结束
其他的
开始
S:=“查询所选驱动器上的可用空间时出错”；
结束；
FreeDiskSpaceLabel。标题：=S；
结束；
程序指令变更（发送方：TObject）；
开始
UpdateDiskSpaceLabel；
结束；
过程初始化Wizard（）；
开始
FreeDiskSpaceLabel:=TNewStaticText.Create（WizardForm）；
FreeDiskSpaceLabel.Parent:=WizardForm.DiskSpaceLabel.Parent；
FreeDiskSpaceLabel。顶部：=
WizardForm.DiskSpaceLabel.Top-WizardForm.DiskSpaceLabel.Height-ScaleY（8）；
FreeDiskSpaceLabel.Left:=WizardForm.DiskSpaceLabel.Left；
WizardForm.DirEdit.OnChange:=@DirEditChange；
{默认/先前路径的更新}
UpdateDiskSpaceLabel；
结束；