thanks, i can see it now in the combo, but i misunderstood the use of gttfontcache.
TMemo(AContainer.Components[I]).Font.Name := ConstPoliceNom;
it does change the font if ConstPoliceNom = "Arial" or "Courier", but not if ConstPoliceNom = "Caslon Antique"