BCB 操作WORD 多出个空格,该怎么处理

BCB 操作WORD 多出个空格
Str=Fmain->Fmain_name->Caption+"试验报告";
  vSelect.OleProcedure("GoTo",-1,0,0,"a_1");
  vSelect.OleProcedure("TypeText",Str);
  ProgressBar->Position=1;

不知道为什么导出word后，总是多个空格，“测试仪试验报告 ”。在线等，急求。。。。。。。。。。

[解决办法]
你的Str是什么类型,如果是AnsiString 试试

C/C++ code

 vSelect.OleProcedure("TypeText",Str.c_str() );