TFontCache.Clear

procedure Clear;