Перенос текста в объединенных ячейках

#include <ComObj.hpp>
 
private:    // User declarations
Variant  vVarApp,   
         vVarBooks, 
         vVarBook,   
         vVarSheets, 
         vVarSheet,  
         vVarCells,  
         vVarCell;   
bool     fStart;

if(!fStart)
{
    try
    {
        vVarApp=CreateOleObject("Excel.Application");
        fStart=true;
    }
    catch(...)
    {
        Application->MessageBox(L"ќшибка при открытии сервера Excel", L"ќшибка...", MB_OK | MB_ICONINFORMATION);
        return;
    }
}
 
//установка свойства
vVarApp.OlePropertySet("Visible",true);
//ѕеременной vVarBooks присваиваетс¤ значение Workbooks - свойство
//объекта Excel.Application, содержащее набор рабочих книг Excel.
vVarBooks=vVarApp.OlePropertyGet("Workbooks");
//SheetsInNewWorkbook задает количество листов в создаваемой книге,
//пусть в первой книге их будет 1 страница (лист)
vVarApp.OlePropertySet("SheetsInNewWorkbook",1);
//ƒобавл¤ем книгу из 1 листов в объект vVarBooks.
vVarBooks.OleProcedure("Add");
//ѕеременна¤ vVarBook содержит ссылку на текущую книгу.
//(ѕусть текуща¤ книга будет перва¤).
vVarBook=vVarBooks.OlePropertyGet("Item",1);
//ѕеременной vVarSheets присваиваем значение
//Worksheets - свойство объекта Excel.Application,
//содержащее набор страниц книги Excel.
vVarSheets=vVarBook.OlePropertyGet("Worksheets");
//берем первый лист
vVarSheet=vVarSheets.OlePropertyGet("Item",1);
//задаем новое им¤ листу
vVarSheet.OlePropertySet("Name", (WideString)"Имя листа");
 
//встаем на указанную ¤чейку
vVarCell=vVarSheet.OlePropertyGet("Range", (WideString)"A1:B2");
vVarCell.OleProcedure("Merge");
vVarCell.OlePropertySet("WrapText", true); ПЕРЕНОС НА ДРУГУЮ СТРОКУ
vVarCell.OlePropertyGet("Font").OlePropertySet("Name", (WideString)"Times New Roman");
vVarCell.OlePropertySet("HorizontalAlignment",-4131);
vVarCell.OlePropertySet("VerticalAlignment",-4108);
//устанавливаем значение данных
vVarCell.OlePropertySet("Value", (WideString)Form1->ATS_Otch->FieldByName("Text")->AsString.c_str());

String temp = "A1:B"+n
vVarCell=vVarSheet.OlePropertyGet("Range", (WideString)temp.c_dtr());
vVarCell.OleProcedure("Merge");