listbox items in inis speichern?

[NicNacMan]

Delphi-Quellcode:

uses IniFiles;
...
procedure TForm1.Button1Click(Sender: TObject);
var
  Ini: TIniFile;
  i  : Integer;
begin
  ini := TIniFile.Create('C:\test.ini');
  try
    ini.WriteInteger('Items', 'Count', ListBox1.Items.Count);
    for i := 0 to Pred(ListBox1.Items.Count) do
      ini.WriteString('Items', 'Item'+IntToStr(i), ListBox1.Items.Strings[i]);
  finally
    ini.Free;
  end;
end;