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

var
datei,zahl :string;
k :integer;
begin
if opendialog1.execute then begin
datei:=opendialog1.filename;

ini: TIniFile;

ini := TIniFile.Create(datei);

    // INI-Datei initialisieren
try
 //daten abfragen
zahl:= ini.ReadString('a', 'zahl', '');


finally
  ini.Free;
k := random(1) + zahl;

    // Variable ini wieder freigeben
end;					

1:
2:
3:

aIntegerVariable:=ini.ReadInteger('asd','asdasd',0);
{oder was umständlicher ist}
aIntegerVariable:=StrToInt(ini.ReadString(...));