Работа с ini файлами

ShellExecute(0, nil, PChar(Memo1.Text), nil, nil, SW_SHOW);

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, IniFiles, StdCtrls; // Для Ini Файлов Требуется: IniFiles
 
type
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    Edit1: TEdit;
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
  IniFile: TiniFile; // Объявляем Имя переменной Ini Файла
 
implementation
 
{$R *.dfm}
 
procedure TForm1.Button1Click(Sender: TObject);
begin
  IniFile.WriteString('Раздел_1','Значение_Edit1',Edit1.Text);
  // Записываем информацию с раздела с именем "Раздел_1" и идентификатора "Значение_Edit1",
  // записывая туда строковою информацию содержащуюся в "Edit1.Text"
  // Так как записываем, то "Write" так как строковою информацию то "String"
end;
 
procedure TForm1.Button2Click(Sender: TObject);
begin
  Edit1.Text:=IniFile.ReadString('Раздел_1','Значение_Edit1','Ошибка чтения');
  // Считываем информацию с раздела с именем "Раздел_1" и идентификатора "Значение_Edit1",
  // Если произошла ошибка чтения, например отсутствует или раздел, или идинтификатор
  // То возвращается значение вписаное третим параметром в нашем случае "Ошибка чтения"
  // Так как Считываем, то "Read" так как строковою информацию то "String"
end;
 
procedure TForm1.FormCreate(Sender: TObject);
begin
  IniFile:=TIniFile.Create('.\IniFileName.Ini');
  // Определяем IniFile. Пишем создать, и в параметре Путь к имени файла.
end;
 
end.

IniFile: TiniFile;
IniFile.FileName

uses
........ inifiles;
 
.............
............
var
myini:Tinifile;
dir:string;
 
begin
dir:=ExtractFilePath(OpenDialog1.FileName); //заносим путь к файлу в переменную
myini.Create('D:\Settings.ini');
myini.WriteString('Protect', 'File Directory', dir); // заносим переменную в ini файл
                                                           // в секцию Protect, например
....................................................
...................................................
myini.free; //завершаем работу с ini
end;

dir := Myini.ReadString('имя секции', 'path', 'значение по умолчанию');

//процедура закрытия формы FormClose
... //что-то произошло
IniFile.Free; //убиваем переменую типа TiniFile

dir := Tinifile.ReadString('Name', 'path', 'No frong');
ShellExecute(0, nil, PChar(dir), nil, nil, SW_SHOW);

dir := Tinifile.ReadString('Name', 'path', 'No frong');
if FileExists(dir) then //проверяем имеется ли файл(dir=полный путь к файлу).
ShellExecute(0, nil, PChar(dir), nil, nil, SW_SHOW);