حفظ مسار opendialog في inifile

[TF6M]

السلام عليكم
في إجراء Button عادي :

PHP كود :

{$WARNINGS OFF}
{$HINTS OFF}
{$OPTIMIZATION OFF}

Uses
 IniFiles;

procedure TForm1.Button1Click(Sender: TObject);
Var
 sPath:String;
begin
sPath:= ExtractFilePath(ParamStr(0))+'OpenFIniS.ini';
With TIniFile.Create(sPath),OpenDialog Do
 Begin
 Execute;
 If FileName = '' Then Exit;
 WriteString('OpenDclass','FileName',FileName);
 End;
end;