Peut être utiliser un TstringList (ici sl1) local pour charger l'information puis passer par le propriété text pour copier l'information .items.text := sl1.text