1:

Ini.ReadSectionValues('Einheit',Lisbox1.Items);					

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

   with ini do
   begin
    ReadSection ('Einheit', sl); //sl = StringList
    ShowMessage(IntToStr(sl.Count));
     for i := 0 to sl.Count - 1 do
     begin
      LBox_Von.Items.Add(readString('Einheit',sl.Strings[i],'Fehler'));
      LBox_Nach.Items.Add(readString('Einheit',sl.Strings[i],'Fehler'));
     end;
   end;
  ini.Free;
end;					

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

var ini : TInifile;
    sL  : TStringList;
    z   : Integer;
begin
  ini := TIniFile.Create('c:\temp\XXX.ini');
  sL  := TStringList.Create;
  try
    ini.ReadSectionValues('DAT',sL);
    for z := 0 to sL.Count -1 do
      ListBox1.Items.Add(sL.Values[sL.Names[z]]);
  finally
    sL.Free;
    ini.free;
    end;					

1:

ini.ReadSectionValues('DAT',ListBox1.Items);					

1:
2:
3:

1=bar 
2=mbar 
3=Torr