TSrings in Ini speichern

[semo]

Zitat:

Ich habe so versucht das Problem mit TStrings beim speichern in eine Ini zu umgehen aber delphi gibt immer ne Fehlermeldung aus

wo gibt es denn da ein problem?

und:

Delphi-Quellcode:

procedure TFKyteClient.BtConnectClick(Sender: TObject);
var 
  Ini: TIniFile;
begin
  if CoBUsername.Text<>'' then
  begin
    if ChBSaveUsername.Checked=true then
    begin
      Ini:=TIniFile.Create('C:\Kyte Configerations.ini');
      Ini.WriteString('Client', 'AktuellUsername', CoBUsername.Text);
  
      // an dieser Stelle eine kleine Schleife ergänzt
      for i:=0 to 9 do
        Ini.WriteString('Client', 'AlleUsernames' + IntToStr(i+1), CoBUsername.Items[i]);

      Ini.WriteBool('Save', 'Checkbox', true);
      Ini.Free;
    end;
    IdTCPClient1.Connect;
  end else if CoBUsername.Text='' then
  begin
    MessageDlg('Bitte einen Nickname eingeben', mtInformation,[mbOK],0)
  end;
end;