TrueType字体改变

我的代码如下：
var
   SetStyle:variant;
begin
   SetStyle:= MapStyleSetup.defaultstyle ;
   SetStyle.SymbolType:= miSymbolTypeTrueTypeFont;
   SetStyle.SymbolFont.Name: = 'MyFont';
   SetStyle.SymbolCharacter: = 12;
   SetStyle.SymbolFont.size: = 36;
   SetStyle.SymbolFontOpaque := False;
end;  
执行后字体没有改变，为默认的Wingdings。这是为什么？请教！

<P>这都不懂？</P><P>不是独立图元的话要层的OVERride就是覆盖层的样式。</P><P>独立图元可以不管。</P>

<P>这都不懂？</P><P>不是独立图元的话要层的OVERride就是覆盖层的样式。</P><P>独立图元可以不管。</P>

<P>我也遇到过这样的问题！</P><P>你把</P><P>SetStyle.SymbolFont.Name: = 'MyFont'; 中</P><P>的MyFont 改为你所需要的字体！比如说</P><P>SetStyle.SymbolFont.Name: = '黑体';</P><P>你就可以使用里面的字体符号了！
但是好象只能改为汉字字体，我改为Map symbols 就用不起了！
不知道为什么！请高手指教啊！
   </P>

<P>能否传给我一个你做的truetype字体的设置大小的问题。<a href="mailtgzy9001@163.com" target="_blank" >gzy9001@163.com</A></P>

<P>up</P>