４００分解决ＣＡＤＳＹＳ字体问题，请版主等大侠显身。(100分)

我用了ＣＡＤＳＹＳ４做了个东东。因做之前一直没显示中文字体。现发现显示中文字体是乱码！！请有空的ＤＦＷ看看此控件该怎么样改才能不显乱码。
http://www.torry.net/vcl/charts/cad/cadsys4.zip有source与demo

先试试！

有源码，自己动手!

var
x1,x2,y1,y2:double;
TextHight1:double;
TextContext:string;
begin
TextHight1:=1.5;
CADCmp2D1.CurrentLayer := 1;
TextContext:= '你好aaa1111' ;
with TText2D(CADCmp2D1.AddObject(0, TText2D.Create(1, Rect2D(1,
1, 1+TextHight1*10, 1+TextHight1*10),
TextHight1, TextContext))) do
LogFont.FaceName := '宋体';
CADCmp2D1.ZoomToExtension ;
end;

还是自己慢慢搞定。

接受答案了。