a ver si te sirve..
if (Column->Title->Caption != "" )
grid->DefaultDrawColumnCell(Rect,DataCol,Column,State);
else {
int indice;
grid->Canvas->FillRect(Rect);
if (Todo_sel== true)
DrawFrameControl(grid->Canvas->Handle,(RECT*) &Rect, DFC_BUTTON,DFCS_BUTTONCHECK |1024);
else
if (lista->Find(grid->Fields[5]->AsString,indice))
DrawFrameControl(grid->Canvas->Handle,(RECT*) &Rect, DFC_BUTTON,DFCS_BUTTONCHECK |1024);
else
DrawFrameControl(grid->Canvas->Handle,(RECT*) &Rect, DFC_BUTTON,DFCS_BUTTONCHECK |0);
}