Нужна помощь по созданию IElemStyle!

А на каком языке?

elstyle: IElemStyle;
elstyle := CoElemStyle.Create;

uses
ZuluOcx_TLB, Zululib_TLB, activex;

procedure TForm1.MapCtrl1MouseLeftDblClick(ASender: TObject;
State: TOleEnum; X, Y: Integer; RealX, RealY: Double);

var elstyle: IElemStyle;
var Fd: IFontDisp;
var F: IFont;

begin

elstyle := CoElemStyle.Create;

Fd:=elstyle.Font;

Fd.QueryInterface(IFont, F);

F.put_Name('Courier New');

elstyle.Font := Fd;

elstyle.TextHeight := 2000;

MapCtrl1.Map.Layers.Active.AddText( RealX, RealY, '123456', elstyle);


end;