Как сохранить данные из listbox в файл

procedure Form1.button1_Click(sender: Object; e: EventArgs);
var
  f: textfile;
  i: integer;
begin
  assignfile(f, 'example.txt');
  rewrite(f);
  for i := 0 to ListBox1.Items.Count - 1 do
    writeln(f, ListBox1.Items[i]);
  closefile(f);
end;

procedure Form1.button1_Click(sender: Object; e: EventArgs);
begin
  WriteAllLines('example.txt', listBox1.Items.OfType&<string>().ToArray());
end;

procedure Form1.button1_Click(sender: Object; e: EventArgs);
begin
   for var i:=1 to 5 do
   listBox1.Items.Add(inttostr(i));
   WriteAllLines('example.txt', listBox1.Items.OfType&<string>().ToArray());
end;

procedure Form1.button1_Click(sender: Object; e: EventArgs);
begin
  WriteAllLines('example.txt', listBox1.Items.OfType&<string>().ToArray());
end;