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