[M@R!N@]

Bueno, a ver si te puede ayudar esto un poco:

Para poder pintar las filas del DBGrid, lo tienes que hacer por medio del evento OnDrawDataCell y con el Canvas.

Yo estuve experimentado un poco por aqui, igual es la primera vez que lo intento, pero bueno rústicamente lo que hice fue esto:

Dentro del evento OnDrawDataCell...

genero=Table1->FieldValues["Genero"];   //"genero" es un String, lo usé para poder compararlo con palabras... ^_^¡
if(genero=="Romance")
  {
  DBGrid1->Canvas->Brush->Color=clRed;         //Lo coloreo de rojo si es romance
  }
else if(genero=="Suspenso")
  {
  DBGrid1->Canvas->Brush->Color=clGreen;   //Si es Suspenso, entonces verde
  }
else if(genero=="Comedia")
  {
  DBGrid1->Canvas->Brush->Color=clYellow;  //Si es Comedia, amarillo
  }
else
  {
  DBGrid1->Canvas->Brush->Color=clWhite;   //Y digamos que los demás de blanco, claro tu puede poner el color que quieras a los géneros que quieras
  }
  DBGrid1->Canvas->FillRect(Rect);           //Una vez elegido el color, lo pinto, Rect es digamos un parámetro que te devuelve este evento, no se declara, ahi está siempre...
  DBGrid1->Canvas->TextOut(Rect.left,Rect.top,Table1->FieldValues[Field->DisplayName]);  //Para que se vea el texto

Si tienes alguna duda, o no le entiendes a esto, dímelo... y con gusto te ayudaré ^_^ suerte!