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

var
  stringliste : TStrings;
  Ini: TIniFile;
  IniDir : String;
begin
  IniDir := ExtractFilePath(ParamSTr(0))+'daten/config/befehle.dat';
  try
   begin
    Ini:=TIniFile.Create(IniDir);
    Ini.ReadSection('befehle', stringliste);
   end;
  finally
   begin
    Ini.Free;
    end;
   end;
   ShowMessage(IntToStr(stringliste.Count));
end;