Условное форматирование ячеек Excel

Variant vVarApp, vVarBooks, vVarBook, vVarSheets, vVarSheet, vVarCells, vVarCell;
bool fStart;
AnsiString aSG;
 
void __fastcall TFileManager::mSaveClick(TObject *Sender)
{
   Variant v;
   if(!fStart)
   {
      try
      {
         vVarApp = CreateOleObject("Excel.Application");
         fStart=true;
      }
      catch(...)
      {
         MessageBox(0, "Ошибка при открытии сервера Excel", "Ошибка", MB_OK);
         return;
      }
   }
 
   else return;
   vVarApp.OlePropertySet("Visible",true);
   vVarBooks = vVarApp.OlePropertyGet("Workbooks");
   vVarApp.OlePropertySet("SheetsInNewWorkbook",1);
   vVarBooks.OleProcedure("Add");
   vVarBook = vVarBooks.OlePropertyGet("Item",1);
   vVarSheets = vVarBook.OlePropertyGet("Worksheets");
   vVarSheet = vVarSheets.OlePropertyGet("Item",1);
 
   //Заполняем ячейки данными из StringGrid
   for (int i=0; i<this->SGmain->ColCount; i++)
   for (int j=1; j<this->SGmain->RowCount; j++)
   {
      vVarCell = vVarSheet.OlePropertyGet("Cells").OlePropertyGet("Item",j+1,i+1);
      aSG = this->SGmain->Cells[i][j];
      vVarCell.OlePropertySet("Value", aSG.c_str());
      if (Текст ячейки содержит "**.**.****")
      {
         vVarCell.OlePropertyGet("Interior").OlePropertySet("ColorIndex",22);
      }
   }

if (SGmain->Cells[i][j-1].Pos("01.05.2015"))
      {
         vVarCell.OlePropertyGet("Interior").OlePropertySet("ColorIndex",33);
      }