Sauvegarde txt : Nom de fichier par défaut

Bonjour à tous. Problème tout bête mais je butte : je veux sauvegarder les lignes d'une listbox dans un fichier txt. Là aucun problème je sais faire. Mais j'aimerais assigner un nom par défaut à ce fichier, mais là rien à faire, il me laisse du vide à chaque fois. Voici le code que j'ai utilisé :

procedure TForm1.Sauvegarder1Click(Sender: TObject);
var F:TextFile;
i:Integer;
begin
if SaveDialog1.execute then
begin
AssignFile(F, TitreSave.Caption);
Rewrite(F);
for i:=0 to ListBox1.Items.Count-1 do Writeln(F, NFO.Items.Strings[i]);
CloseFile(F);
end;
end;

Je pensais donc que TitreSave.Caption serait alors le nom de fichier par défaut, mais non. Que faire ?

Merci à tous.
---------------------------
"La liberté, c'est de pouvoir dire merde à tout le monde." (R. Dorgelès)

Petite erreur de code excusez moi c'est :

for i:=0 to ListBox1.Items.Count-1 do Writeln(F, ListBox1.Items.Strings[i]);

La propriété Items du composant ListBox possède une méthode SaveToFile à laquelle il suffit de passer le nom du fichier.
Alors, pourquoi réécrire ce qui existe déjà ?
May Delphi be with you


-------------------------------
Réponse au message :
-------------------------------

> Petite erreur de code excusez moi c'est :
>
> for i:=0 to ListBox1.Items.Count-1 do Writeln(F, ListBox1.Items.Strings[i]);

Merci du tuyau !
------------------------
"La liberté, c'est de pouvoir dire merde à tout le monde." (R. Dorgelès)

La propriété Caption d'un TSaveDialog est le titre de la boîte et non le nom du fichier.

Essaie plutôt ceci :

begin
SaveDialog1.FileName:=NomParDefaut;
if SaveDialog1.execute
then NFO.Items.SaveToFile(SaveDialog1.FileName);
end;