Редактирование текста перехода Delphi XE2

Здравствуйте!
Возникла проблема шрифтов в окне редактирования,в закладке "ТЕКСТ" и при щелчке по этой вкладке все закрывается:офис и dllка моя.
Редактирование проводится через вызов dllки в программе Excel 2003,текст команды:

procedure TForm2.Button1Click(Sender: TObject);
var
s,NOP: String;
i,ToTechId,Form: Integer;
NmkTechnology: CSDN_TLB.INmkTechnology;
n: Real;
TCSApp: TCS_Application;
TCS : CSDN_TLB.TCS;
begin
  Tcs:= CreateOLEObject('CSDN.TCS' ) as ITCS;
  TCSApp:=TCS.LoginCurrent;
  NmkTechnology:=TCSApp.NmkTechnology[200265,44629];
  If NmkTechnology.Locate['TECH_ID',2066558,0] then begin
     NmkTechnology.ActionList.ActionByName['EditAction'].Execute;
  End;
  try
    (NmkTechnology as IModule2).UserModuleName :=(NmkTechnology as IModule2).UniqueUserModuleName;
    (TCSApp  as IOcs_Application2).DeleteModuleByUserModuleName((NmkTechnology as IModule2).UserModuleName);
  except
  end;
end;