Rellenar StringGrid con base de datos

[borlandpablo]

Buenas, estoy intentando llevar un control de catalogos de forma visual. Me he creado un calendario personalidazo donde me aparecen en cada fila el nombre del catálogo y en cada columna la fecha. La fecha de inicio siempre empieza en la fecha actual. Ahora quiero rellenar de color verde desde la fecha de inicio de un catalogo hasta la fecha final. Esto es lo que tengo hecho, pero no me rellena nada.

void __fastcall TXVista::FormShow(TObject *Sender)
{
   XDatos->QDistribuidor->Open();
   XDatos->QTienda->Open();
   XDatos->QCatalogos->Open();

   TDate fecha = Date();

   for(int i=1; i<=63; i++) //Meses, columnas
   {
      bool encontrado = false;
      StringGrid1->ColCount = i;
      StringGrid1->Cells[i][0]= fecha;
      fecha = fecha + 1;
      StringGrid1->RowCount = XDatos->QCatalogos->RecordCount + 1;

      for(int j=1; j<=XDatos->QCatalogos->RecordCount; j++) //catalogos, filas
      {
         while(!XDatos->QCatalogos->Eof)
         {
            StringGrid1->Cells[0][j] = XDatos->QCatalogosTitulo->Value;
            if(StringGrid1->Cells[i][0] == XDatos->QCatalogosTitulo->Value && StringGrid1->Cells[0][j] == XDatos->QCatalogosFecha_ini->Value)
               encontrado = true;

            if(encontrado)
               StringGrid1->Color = clLime;

            XDatos->QCatalogos->Next();
            j = j + 1;
         }
      }
   }
}

Un saludo