Ini文件的操作问题(5分)

对话框中返回的文件名写入.ini文件后无法读出来。
附源码如下：
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls;
type
TForm1 = class(TForm)
Label1: TLabel;
Label2: TLabel;
Edit1: TEdit;
Edit2: TEdit;
OpenDialog1: TOpenDialog;
procedure FormCreate(Sender: TObject);
procedure FormDestroy(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;
implementation
{$R *.DFM}
procedure TForm1.FormCreate(Sender: TObject);
var
name:array[1..25] of char;
version:integer;
begin
version:=GetPrivateProfileInt(
//从.INI文件中获取版本信息
'ProgramInfo',//[]中节的名称
'Version',//=前的键名
0, //如果没有找到整数时，返回0
'./tmp.ini'//.INI文件名
);
Edit2.Text:=IntToStr(version);//显示版本
GetPrivateProfileString(
//从.INI文件中获取姓名信息
'ProgramInfo',//[]中节的名称
'Name', //=前的键名
'', //如果没有找到字符串时，返回Nil
@name,//存放取得字符串
25,//取得字符的允许最大长度
'./tmp.ini' //.INI文件名
);
Edit1.Text:=name;
//显示程序名
end;

procedure TForm1.FormDestroy(Sender: TObject);
var
VerStrChar;
NameChar;
begin
VerStr:=pChar('Version='+Edit2.Text);
WritePrivateProfileSection(
//向.INI文件写入段及信息版本
'ProgramInfo', //段名
VerStr,
'./tmp.ini'
);
if OpenDialog1.Execute then

Name:=pChar(OpenDialog1.FileName);
WritePrivateProfileString(
//向.INI文件写入程序名
'ProgramInfo',
'Name',
Name,
'./tmp.ini'
);
end;

end.

inifiles:tinifile.creatte;
stringf:=inifiles.writestring(a,b,c)
inifiles:=inifiles.readstring(b,b,c)