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

[Database]
Driver=bla
Servername=blubb
User=Test
Paswort=glugg

[Test]
etwas=gligg
nochwas=blala					

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

var
  ini: TIniFile;
  SectionList: TStringList;
  i: Integer;
begin
  ini := TIniFile.Create(ExtractFilePath(ParamStr(0)) + 'test.ini');
  SectionList := TStringList.Create;
  ini.ReadSections(SectionList);
  for i := 0 to SectionList.Count - 1 do
    if ini.ValueExists(SectionList[i], 'Passwort') then
      cbbPasswordSections.Items.Add(SectionList[i]);
  SectionList.Free;
  ini.Free;					

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

procedure TForm1.Button1Click(Sender: TObject);
var ini: TIniFile;
    i: integer;
    secs: TStringList;
begin
  ComboBox1.Items.BeginUpdate;
  ini := TIniFile.Create('C:\test.ini');
  try
    secs := TStringList.Create;
    try
      ComboBox1.Items.Clear;
      ini.ReadSections(secs);
      for i := 0 to Pred(secs.Count) do
        if ini.ValueExists(secs[i],'Passwort') then
          ComboBox1.Items.Add(secs[i]);
    finally
      secs.Free;
    end;
  finally
    ini.Free;
    ComboBox1.Items.EndUpdate;
  end;
end;