Podobným způsobem

se dají též získat najednou samotné názvy všech sekcí. To zařídí funkce ReadSections. Příklad je velmi podobný tomu předchozímu:
procedure TForm1.Button4Click(Sender: TObject);
var
INISoubor: TIniFile;
begin
INISoubor := TIniFile.Create('c:\pokus.ini');
INISoubor.ReadSections(ListBox1.Items);
INISoubor.Free;
end;