Inno setup Inno安装脚本：标识符预期错误

请帮我输入以下代码：

[Code]
var
    AppVersionNumber: Integer;
    DBVersionNumber: Integer;
function GetAppVersion:Integer;
    var
        AppVersion: AnsiString;
    begin
        ExtractTemporaryFile('info.dat');
        LoadStringFromFile(ExpandConstant('{tmp}\info.dat'), AppVersion);
        AppVersionNumber := StrToInt(Copy(AppVersion, 1, 6));
        DBVersionNumber := StrToInt(Copy(AppVersion, 7, 12));
        GetAppVersion := AppVersionNumber; <== here is error
    end;

[代码]
变量
AppVersionNumber:整数；
DBVersionNumber：整数；
函数GetAppVersion:整数；
变量
应用版本：AnsiString；
开始
提取临时文件（'info.dat'）；
LoadStringFromFile（ExpandConstant（{tmp}\info.dat'），AppVersion）；
AppVersionNumber:=stroint（副本（AppVersion，1,6））；
DBVersionNumber:=stroint（复制（AppVersion，7，12））；
GetAppVersion:=AppVersionNumber 
Result:=
用于指定函数的结果/返回值（不能像VB那样将其分配给函数名）

“Invalid Prototype”错误很可能是因为您在
{code:…}
常量中使用它，该常量要求被调用函数始终具有单个字符串参数。

尝试使用以下内容：

应该使用
Result:=
。但是我的函数没有任何参数，它应该是什么样子？确切地说，如果从
{code:…}
常量使用它，它必须有一个字符串参数并返回一个字符串，如我链接到的帮助文章所示。如果您没有使用
{code:…}
常量，那么请尝试向我们展示现在失败的代码和调用它的代码。是的，您完全正确。我认为这些函数和通常的函数一样，但事实并非如此。除了字符串或布尔值，你不能返回任何东西，这真是太愚蠢了。但现在它至少可以被编译了。谢谢为什么？它接收一个字符串（由于它来自脚本），并在同一上下文中用作字符串。此设计在帮助文件中显式调用。
function GetAppVersion(Param: String): String;