[chenech]

	if(DataCol == 0)
	{
		if(dataset->FieldByName("LIMPIA")->AsString == "S")
			DBGrid1->Canvas->Brush->Color = clGreen;
		else
		{
			if(dataset->FieldByName("LIMPIA")->AsString == "P")
				DBGrid1->Canvas->Brush->Color = clYellow;
			else
				DBGrid1->Canvas->Brush->Color = clRed;
		}
		DBGrid1->DefaultDrawDataCell(Rect, Column->Field, State);
       }