1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:

var
   PIni: TIniFile;
begin       //schreiben der Ini
    Pini:= TIniFile.Create(Pfad und name der ini);
    try
       Pini.WriteInteger('Spiel', 'Level', Level);
    finally
       Pini.Free;
    end;
end;
////
var
   PIni: TIniFile;
begin       //lesen der  Ini
    Pini:= TIniFile.Create(Pfad und name der ini);
    try
       level:= Pini.ReadInteger('Spiel', 'Level', '');
    finally
       Pini.Free;
    end;
end;                    

1:
2:
3:

memo1.clear; //leert den text im memo
memo1.lines.add("4"); //fürs fertige 4. Level 
memo1.lines.safetofile("Dateiname.txt");                    

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

if fileexists("Dateiname") then
begin
memo1.lines.loadfromfile("Dateiname");
if memo1.lines.count>0 then 
try
level:=strtoint(memo1.lines[0]);
except
level:=0;
end;