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

var
ini : TIniFile;
test, test1 : String;

try
ini := TIniFile.Create(ExtractFilePath(ParamStr(0))+ 'Informationen.ini');
Ini.WriteString('Leute', 'Name', test); //Speichern
test1 := Ini.ReadString('Leute', 'Name', ''); //Laden
finally
Ini.Free;
end;					

1:

var1:=Ini.readstring('Leute', 'Name', 'C:\Dokumente und Einstellungen\User\Desktop\TEST\ini.ini');					

1:

test1 := Ini.ReadString('Leute', 'Name', ''); //Laden					

1:

test1:=ini.readstring('Leute', 'Name', 'test1');					

1:

test1:=ini.readstring('Leute', 'Name', test1);					

1:

  Ini := TIniFile.Create('C:\inifile.ini');					

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

var
  Ini: TIniFile;
  Name1, Name2: String;
begin
  //Ini initialisieren
  Ini := TIniFile.Create('C:\Dokumente und Einstellungen\User\Desktop\TEST\ini.ini');
  //Wert 1 auslesen
  Name1 := Ini.ReadString('Leute', 'Name1', '');
  //Wert 2 auslesen
  Name2 := Ini.ReadString('Leute', 'Name2', '');
  //Wert 3 schreiben
  Ini.WriteString('Leute', 'Name3', 'Gustav');
  //Speicher freigeben
  Ini.Free;
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:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  IniFiles, Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Edit1: TEdit;
    Button2: TButton;
    label1: TLabel;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation
var
ini: TIniFile;
a1 :string;

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
a1:=edit1.Text;
ini:=TIniFile.Create('C:\Dokumente und Einstellungen\User\Desktop\TEST\ini.ini');
ini.writestring('Benutzer', 'Name', a1); //Speichern


end;

procedure TForm1.Button2Click(Sender: TObject);
begin
a1 :=Ini.readstring('Benutzer', 'Name', a1);
label1.caption:=a1;
end;

end.					

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

procedure TForm1.OnCreate(Sender: TObject);  
begin  
  ini := TIniFile.Create('C:\Dokumente und Einstellungen\User\Desktop\TEST\ini.ini');
end; 

...

procedure TForm1.Button1Click(Sender: TObject);  
begin  
a1:=edit1.Text;   
ini.writestring('Benutzer', 'Name', a1); //Speichern  
end;					

1:
2:
3:
4:
5:

procedure TForm1.Button1Click(Sender: TObject);  
begin    
  ini := TIniFile.Create('C:\Dokumente und Einstellungen\User\Desktop\TEST\ini.ini');  
  ini.WriteString('Benutzer', 'Name', Edit1.Text); //Speichern  
end;