[Resolvido] DBGrid

Procurei na net e achei vários exemplos... tento todos e não consigo colorir as células do meu grid que tenham conteúdo TRUE.

Alguém tem algo que efetivamente já usou e funcionou para me passar? O que será que estou fazendo errado, segue o meu código

procedure TfrmPrincipal.gridGeneralDrawDataCell(Sender: TObject;
 const Rect: TRect; Field: TField; State: TGridDrawState);

begin if gridGeneral.DataSource.DataSet.FieldByName('UnderApproval').asBoolean = true then

 gridGeneral.Canvas.Brush.Color:= clRed;

 gridGeneral.Canvas.FillRect(Rect);
 gridGeneral.DefaultDrawDataCell(Rect,gridGeneral.columns[0].field,State);
end;

No aguardo, valeu!