Replaces the spacing for a XLFD font descriptor format with a '*' wildcard.
Source position: graphics.pp line 2010
function ClearXLFDPitch(
const LongFontName: string
):string;