OpenDialog和ini文件的有关问题

OpenDialog和ini文件的问题
用OpenDialog访问本机或局域网内的共享文件，将路径的名字赋给edit1；
procedure   TForm1.Button1Click(Sender:   TObject);
begin
    if   opendialog1.Execute   then
    begin
        edit1.Text:=opendialog1.FileName;
    end;
end;
将该路径保存在程序的根目录data.ini文件中，
myini:=Tinifile.Create( '.\data.ini ');
myini.writestring( 'zfc ', 'str ',edit1.Text);
发现data.ini文件保存在了OpenDialog所访问的目录下，没有保存在程序的根目录下，大家帮帮忙，看看这个问题怎么解决！

[解决办法]
myini:=Tinifile.Create(ExtractFilePath(application.ExeName)+ '\data.ini ');