Besoin d'aide pour programmation

Bonjour, j'ai fait un petit programme qui référence des adresse IP dans un fichier teste, une fois le fichier texte créer le programme sent sert pour pinguer les IP référencé dans se document texte ....

Mon souci c'est que le document se créer correctement, mais il ne copie pas le contenu de ma Listbox a l'intérieur du document texte.

Je met la syntaxe a la disposition des personnes qui pouron me venir en aide.

Merci par avance.

procedure TForm1.Button3Click(Sender: TObject);
var i:integer;
begin
NomFichier:=ExtractFilePath(Application.ExeName)+NomFichier; // chemin complet
AssignFile(F,NomFichier); //associe le nom du fichier externe défini par NomFichier à la variable fichier f
if FileExists(NomFichier) then begin
showmessage('Le fichier éxiste déjà, il a été modifier.');
Reset(F); // ouvre le fichier en lecture
end else begin // creation du fichier d'adresse IP
showmessage('Le fichier d''enregistrement n''éxiste pas !'+#13#10#13#10
+'Il va être crée.');
rewrite(f); //crée puis ouvre le fichier AdresseIP.txt
end;
for i:=0 to ListBox1.Count-1 do begin

end;