如何改变显示内容的字体(150分)

我使用mapobject+delphi做了一个简单的gis系统,在显示地名时我想设置显示地名的字体
....
var ft:tfont;
...
Ft:= TFont.Create;
with Ftdo

begin

Name := 'Arial';
Style:= [];
Size := 15;
color:=$FFFFFF;
end;

...
render:= IMoLabelRenderer(CreateOleObject('MapObjects2.LabelRenderer'));
...
render.Symbol[0].Font:=IFontDisp(IDispatch(FontToOleFont(Ft)));
...

系统提示:Undeclared identifier ifontdisp;
也无法使用 var i:ifontdisp;
请各位高手帮忙!!!

你这样试一下呢
OleFontToFont(render.Symbol[0].Font, Ft);

我已经找到答案了,谢谢