1:
2:
3:
4:
5:
6:

procedure ReadIniSections(IniFile: String; Strings: TStrings);
begin
  with TIniFile.Create(IniFile) do try
    ReadSections(Strings);
  finally Free end;
end;					

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

var
  sl: TStringList;
  k: Integer;
begin
  sl := TStringList.Create;
  try
    ReadIniSections('c:\abc.ini', sl);
    k := sl.Count; //<<<<<<<<
  finally
    sl.Free;
  end;
end;