geht nicht...aus ini lesen

[kumar89]

Hey ich hab da noch ein klitschko kleines problem

zwar möchte ich von meiner ini die werte auslesen lassen und in meine edits wieder anzeigen lassen.

hier mal mein code wie ich die ini erstelle:

Delphi-Quellcode:

var Ini: TIniFile;
    i:   Integer;
begin
  ini := TIniFile.Create('C:\Beispiel.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 TEdit then
          ini.WriteString('Summen'+(Jahr.Text)+(Monat.Text),(Components[i] as TEdit).name,((Components[i] as TEdit).text));
    end;
  finally
    ini.Free;
  end;
end;

und hier wie ich die werte beziehe:

Delphi-Quellcode:

var Ini:  TIniFile;
    i:    Integer;
begin
   ini := TiniFile.Create('C:\Beispiel.ini');
   // Zum Lesen
  For i := 0 to ComponentCount - 1 do begin
    If Components[i] Is TEdit then with Components[i] As TEdit Do begin
      text := ini.ReadString('Summen'+(Jahr.Text)+(Monat.Text),(Components[i] as TEdit).name,((Components[i] as TEdit).text));
    end;
  end;
  ini.Free;
end;

komme einfach nicht darauf wo der fehler ist...

mfg kumar89