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;