Replaces the WeightName, Slant and SetwidthName segments in an XLFD font name with the '*' wildcard.
Source position: graphics.pp line 1998
function ClearXLFDStyle(
const LongFontName: string
):string;