Je vais ajouter une précision, SaveToFile('fichier.csv', TEncoding.UTF8); ajoute un BOM en début de Fichier régit par la propriété WriteBOM