TSrings in Ini speichern

[Loni]

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

[DCC Fehler] Unit1.pas(44): E2016 Array-Typ erforderlich

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);
Ini.WriteString('Client', 'AlleUsernames1', CoBUsername.ItemIndex[0]);
Ini.WriteString('Client', 'AlleUsernames2', CoBUsername.ItemIndex[1]);
Ini.WriteString('Client', 'AlleUsernames3', CoBUsername.ItemIndex[2]);
Ini.WriteString('Client', 'AlleUsernames4', CoBUsername.ItemIndex[3]);
Ini.WriteString('Client', 'AlleUsernames5', CoBUsername.ItemIndex[4]);
Ini.WriteString('Client', 'AlleUsernames6', CoBUsername.ItemIndex[5]);
Ini.WriteString('Client', 'AlleUsernames7', CoBUsername.ItemIndex[6]);
Ini.WriteString('Client', 'AlleUsernames8', CoBUsername.ItemIndex[7]);
Ini.WriteString('Client', 'AlleUsernames9', CoBUsername.ItemIndex[8]);
Ini.WriteString('Client', 'AlleUsernames10', CoBUsername.ItemIndex[9]);
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;