>
> Avec ExtractFileExt(TheSaveDialog.FileName) ?

ça, ça fonctionne seulement si on définit une extension par défaut.
Sans ça, un nom de fichier fourni sans extension n'en prend aucune.
Le but du truc est de pouvoir forcer l'extension choisie dans la liste
au moment de la sauvegarde sans renseigner DefaultExt

--
Jean-Luc M.