Проблемы c Ole Excel

Variant fExcel, fExcelSheet;
...
fExcel.OlePropertyGet("WorkBooks").OleProcedure("Open", sFile.c_str());
...

/* setListCount() */        
        void setListCount(int iValue)
        {
            try
            {
                fExcel.OlePropertySet("SheetsInNewWorkbook", iValue);
            }
            catch(...) { ShowMessage("Add list fail"); }    
        }
        
/* setListName() */     
        void setListName(int iList, AnsiString sValue)
        {
            try
            {
                fExcel.OlePropertyGet("Worksheets").OlePropertyGet("Item", iList).OlePropertySet("Name", sValue);
            }
            catch(...) { ; }
        }

/* setListName() */     
        void setListName(int iList, AnsiString sValue)
        {
            try
            {
                fExcel.OlePropertyGet("Worksheets").OlePropertyGet("Item", iList).OlePropertySet("Name", sValue.c_str());
            }
            catch(...) { ; }
        }

/* setListCount() */        
        void setListCount(int iValue)
        {
            try
            {
                fExcel.OlePropertyGet("Workbooks").OleProcedure("Add").OlePropertySet("SheetsInNewWorkbook", iValue);
 
                
            }
            catch(...) { ShowMessage("Add list fail"); }    
        }

    Variant app = CreateOleObject("Excel.Application");
    Variant wbs = app.OlePropertyGet("Workbooks");
    Variant wb = wbs.OleFunction("Open", "C:\\test.xls");
    Variant wss = wb.OlePropertyGet("Worksheets");
    wss.OleFunction("Add");
    wb.OleProcedure("Save");
    app.OleProcedure("Quit");

/* setListCount() */        
        void setListCount(int iValue)
        {
            try
            {
                fExcel.OlePropertyGet("Worksheets").OleProcedure("Add");
                //fExcel.OlePropertySet("SheetsInNewWorkbook", iValue);
 
            }