Sections einer Ini-Datei zählen

function INISectionsCount(const AFilename: string): Integer;
var ISectionCount: Integer;
    i: Integer;
    SCurr: string;
    SLIni: TStringList;
begin
  SLIni := TStringList.Create;
  ISectionCount := 0;

  try
    SLIni.LoadFromFile(AFilename);
    if SLIni.Count <> 0 then
    begin
      for i := 0 to SLIni.Count - 1 do
      begin
        SCurr := SLIni.Strings[i];
        if (SCurr <> '') and (SCurr[1] = '[') and (SCurr[Length(SCurr)] = ']') then
          Inc(ISectionCount);
      end;
    end
  finally
    SLIni.Free;
  end;

  Result := ISectionCount;
end;