procedure TForm1.Button1Click(Sender: TObject);
Var F:TextFile;
i:integer;
begin
AssignFile(F,'c:\test.txt'); //Associe la variable F au fichier texte
Append(F); //Prépare un fichier existant pour l'ajout de texte
for i:=0 to (ListBox1.Items.Count-1) do //Repeter...
begin
Writeln(F,ListBox1.Items.Strings[i]); //Ecrit dans le fichier texte l'élément i
end;
CloseFile(F); //Ferme l'association entre la variable F et le fichier texte
end;