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

procedure Name;
begin
  With TIniFile.Create(Dateiname) do 
    try

      {Hier arbeite ich mit einigen lokalen einfachen Variablen, wie Byte, string, integer, ... keine Klassen}
      {Dann schreibe ich etwas in die INIDatei mit "WriteInteger"}

    finally
      Free;
    end;
end;					

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

procedure button1Click(Sender: TObject);
begin
  Name;
  
  {AndereProceduren}
end;					

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

uses inifiles

var config:tinifile

...
config:=tinifile.Create(extractfilepath(application.exename)+'config.ini');

config.read...
config.write...

config.free;					

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:

procedure TReflektor.DateiBauplanGenerieren(DateiBauplan: string; var Fehler: Boolean);
var n: Byte;
    arr: array [0..255]of Byte;
    Rand: Byte;
    byt: Byte;
    l: integer;

function Finde(n: Byte): integer;
var i: byte;
begin
  result := -1;
  for i := 0 to l - 1 do
    if arr[i] = n then begin
      result := i;
      break;
    end;
end;

begin
//zufälligen Datei-Bauplan für Reflektor generieren
  With TINIFile.Create(DateiBauplan) do try
    Randomize;
    BauplanUndefinieren(Fehler);
    for n := 0 to 255 do Bauplan[E1,n] := n;
    for n := 0 to 255 do arr[n] := n;
    l := 256;
      try
        for n := 0 to 255 do
          if (Bauplan[E2,n] = -1) then begin
            rand := Random(l);
            byt := arr[rand];
            arr[rand] := arr[l - 1];
            l := l - 1;
            Bauplan[E2,n] := byt;
            Bauplan[E2,byt] := n;
            arr[Finde(n)] := arr[l - 1];
            l := l - 1;
          end;

        for n := 0 to 255 do WriteInteger('Bauplan',IntToStr(n),Bauplan[E2,n]);
      except
        spf.FehlerMeldung(fkFehlerBeimSpeichern,'Nach ''' + DateiBauplan + ''' kann nicht geschrieben werden.');
        Fehler := True;
      end;
  finally
    Free;
  end;
end;