Текст при экспорте в exel выводится не полностью

void __fastcall TFMain::Button3Click(TObject *Sender)
{
    wchar_t *str=L"текст тексттекст тексттекст тексттекст тексттекст текст";
    wchar_t *ran=L"A1:K1";
    MyExcel(str,ran);
    ran=L"A3:K3";
    str=L"текст тексттекст тексттекст тексттекст тексттекст текст";
    MyExcel(str,ran);
}
 
void __fastcall TFMain::MyExcel(wchar_t str[],wchar_t ran[])
{
 
    //если не запущена служба то запустить
    if(!fStart)
    {
        fStart=true;
        try
        {
            vVarApp=CreateOleObject("Excel.Application");
            fStart=true;
            //***ДЕЙСТВИЯ
            vVarApp.OlePropertySet("Visible",true);
            //Новая Книга с 3 листами
            vVarBooks=vVarApp.OlePropertyGet("Workbooks");
            vVarApp.OlePropertySet("SheetsInNewWorkbook",3);
            vVarBooks.OleProcedure("Add");
            //выбираем первую книгу
            vVarBook=vVarBooks.OlePropertyGet("Item",1);
            vVarSheets=vVarBook.OlePropertyGet("Worksheets");
            //Задаем имя первой вкладке
            vVarSheet=vVarSheets.OlePropertyGet("Item",1);
            vVarSheet.OlePropertySet("Name","list");
 
 
 
        }catch(Exception *ex){
            ShowMessage(ex->Message);
            return;
        }
    }//endif
 
    vVarCell=vVarSheet.OlePropertyGet("Range",ran);
    vVarCell.OleProcedure("Merge");
    vVarCell.OlePropertySet("RowHeight", 20);
    vVarCell.OlePropertySet("HorizontalAlignment",-4108);
    vVarCell.OlePropertySet("VerticalAlignment",-4108);
    vVarCell.OlePropertyGet("Font").OlePropertySet("Size",8);
    vVarCell.OlePropertySet("Value",str);
}