ini文件数据读取有关问题

ini文件数据读取问题！
已经有了一个ini文件，文件内容类似如下：
[DUIZHAO]
1=名称1
2=名称2
3=名称3
4=名称4
...
1000＝名称1000

现在想写个函数，通过前面的数字读取后面的“名称1”等文字。但是编译都出了问题，大家帮我看看：
Function   mingcheng(wpID   :   cardinal)   :   String;
var
  spf   :   string;
  mcheng   :     string;
begin
        spf   :=   extractfilepath(Application.exename)   +   '\duizhao.ini ';
        GetPrivateProfileString( 'DUIZHAO ',   wpID,   '0 ',   mcheng,   35,   spf);
        result   :=   mcheng;
End;

另外附上以前用vb的时候写的程序。
当时也写了一个函数mingcheng()，用的很好。
Function   mingcheng(wpID   As   Long)   As   String
        Dim   spf   As   String
        spf   =   App.Path   &   "\ "   &   "duizhao.ini "
'ID名称对照表--------------------
        mingcheng   =   Space$(35)
        GetPrivateProfileString&   "DUIZHAO ",   wpID,   "0 ",   mingcheng,   35,   spf
        mingcheng   =   Trim$(mingcheng)     '去掉多余字符
'---------------------------------
End   Function

[解决办法]
function mingcheng(wpID: Cardinal): string;
var
spf: string;
mcheng: array[0..255] of Char;
begin
spf := ExtractFilePath(Application.ExeName) + 'duizhao.ini ';
GetPrivateProfileString( 'DUIZHAO ', PChar(IntToStr(wpID)), '0 ', mcheng, 35, PChar(spf));
result := mcheng;
end;