1:

ini := TIniFile.Create('c:\MeineIni.ini');					

1:
2:
3:
4:
5:
6:
7:

with savedialog1 do
  begin
    savedialog1.Title:='Datei speichern unter';
    Filter:='Textdatei (*.ini)';
    DefaultExt:='ini';
    if Execute then ... ??? .savetofile(savedialog1.FileName); ???
  end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:

procedure SaveWasAuchImmer;
var    Ini:TIniFile;
begin

    savedialog1.Title:='Datei speichern unter';
    savedialog1.Filter:='Textdatei (*.ini)';
    savedialog1.DefaultExt:='ini';
    if savedialog1.Execute then
    begin
        Ini:=TIniFile.create(savedialog1.filename);
        Ini.WriteWasAuchImmer;
        Ini.free;
   end;
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:

In diesem Beispiel wird der Abschnitt Transfer der Datei myapp.ini in ein Memofeld eingelesen. Wenn der Benutzer auf Button1 klickt, wird einer der Strings in der INI-Datei geändert.
Bevor Sie dieses Beispiel ausführen können, müssen Sie die Unit IniFiles in die uses-Klausel aufnehmen.
Achtung:  Klicken Sie immer erst auf Button1, dann auf Button 2!

procedure TForm1.Button1Click(Sender: TObject);

var
  MyIniFile: TIniFile;
  begin
  MyIniFile := TIniFile.Create('myapp.ini');
  Memo1.Clear;
  MyIniFile.ReadSectionValues('Transfer', Memo1.Lines);
  if Memo1.Lines.Values['Title1'] <> 'Picture Painter' then
    MyIniFile.WriteString('Transfer', 'Title1', 'Picture Painter');
  MyIniFile.Free;
end;

procedure TForm1.Button2Click(Sender: TObject);

var
  MyIniFile: TIniFile;
  begin

  MyIniFile := TIniFile.Create('myapp.ini');

  { wenn der Eintrag vorher nicht da war, wird er jetzt gelöscht }
  if Memo1.Lines.Values['Title1'] = '' then
    MyIniFile.DeleteKey('Transfer', 'Title1')
  { andernfalls alten Wert wiederherstellen }
  else
    MyIniFile.WriteString('Transfer', 'Title1', Memo1.Lines.Values['Title1']);
  MyIniFile.Free;
end;