Returns a Variant containing an IFontDispatch interface that represents a TFont object.
function FontToOleFont(Font: TFont): Variant;
Variant FontToOleFont(TFont Font);
OleCtrls
Use FontToOleFont to convert a font from TFont to IFontDispatch format. The interface uses the TFont object to implement the methods of the interface.
OleFontToFont
OleStrToStrVar
StringToOleStr
OleStrToString