Combobox in eine Ini einlesen

[kumar89]

hmm ok danke trotzdem . eine frage hätte ich noch. wenn ich die ini speichere schaut sie so aus z.b:

[Daten2020]
prodlk=
unprodlk=
gehaltserv=
berufsbekl=
anschkostfremd=
personalnk=
kostenserv=
[Summen202005]
Jahr=2020
Monat=05

Wie kann ich denn die ini anders gliedern indem sie so ausschaut:

[Daten2020]
[Summen202005]
Jahr=2020
Monat=2020
prodlk=
unprodlk=
gehaltserv=
berufsbekl=
anschkostfremd=
personalnk=
kostenserv=


Hier mein Quellcode von der ini nochmal:

Delphi-Quellcode:

var Ini: TIniFile;
    i:   Integer;
begin
  ini := TIniFile.Create('C:\Versuch.ini');
  try
    // Zum Speichern
    For i := 0 to ComponentCount - 1 do
    begin
      if (TEdit(Components[i]).Name = 'prodLK') or (TEdit(Components[i]).Name = 'unprodLK') or (TEdit(Components[i]).Name = 'GehaltServ') or
         (TEdit(Components[i]).Name = 'PersonalNK') or (TEdit(Components[i]).Name = 'Berufsbekl') or (TEdit(Components[i]).Name = 'KostenServ') or
         (TEdit(Components[i]).Name = 'AnschKostFremd') then

          ini.WriteString('Daten'+(Jahr.text),(Components[i] as TEdit).name,(Components[i] as TEdit).text)

    else if Components[i] is TCombobox then
          ini.WriteString('Summen'+(Jahr.Text)+(Monat.Text),(Components[i] as TCombobox).name,((Components[i] as TCombobox).text));
    end;
  finally
    ini.Free;
  end;
end;

ich habe auch schon probiert den Code zu tauschen das er erst Daten dann Summe abfragt aber ist nicht zum gewünschten ergebnis gekommen.

Hoffe es kann jemand helfen

MFG Kumar89