Nouveau fichier dans TShellListView

Bonjour,

Je voudrais pouvoir afficher un nouveau fichier créé dans l'objet TShellListView. J'ai créé un explorateur de fichiers et je voudrais voir mon fichier s'enregistrer en temps réel comme dans Windows Explorer. Voici mon code actuel pour créer un nouveau fichier:

procedure TfExplorateurFichiers.btnEnregistrerClick(Sender: TObject);
Var F: TextFile; //Variable qui contiendra le fichier
Var nom, chemin, extension, fichier: String; {Variables qui récupère le nom,
l'extension et le chemin du fichier}

begin
chemin := cheminFichier.Text;{Affectation de la variable recueilli dans
le champ de saisie du chemin de fichier}

nom := nomFichier.Text;{Affectation de la variable recueilli dans
le champ de saisie du nom du fichier}

extension := ExtensionFichier.Text;{Affectation de la variable recueilli dans
le champ de saisie de l'extension du fichier}

fichier := chemin + '\' + nom + extension; {Concaténation du chemin et du nom
complet du fichier pour l'affecter dans une seule variable}

AssignFile(F,fichier); //Associe la variable F au fichier texte à créer

{Si le fichier existe déjà, envoyer un message d'erreur. Sinon, créer le
fichier}


If fileExists (fichier) <> true then
begin
rewrite (F); //Créer le fichier
showmessage('Fichier créé avec succès!'); //Message de confirmation

//Réinitialisation des champs de saisie
cheminFichier.Text := '';
nomFichier.Text := '';
ExtensionFichier.Text := '';
end
else
begin
showmessage('Désolé! Ce fichier existe déjà.'); {Message d'erreur indiquant
que le fichier existe déjà}

//Réinitialisation des champs de saisie
nomFichier.Text := '';

end;

end;