Destacar uma linha em um Dbgrid com uma cor conforme um certo campo

procedure TF_Cad_pcontas.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect; DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
if F_Dados.Q_cad_pcontasSintetica.Value='S' then
//aqui escolhi que se no campo Sintetica da Query Q_cad_pcontas estiver o valor S sera
destacado em vermelho
begin
DBGrid1.Canvas.Brush.Color:=clMenu; // indica o fundo escolhi o branco
DBGrid1.Canvas.Font.Color:=clred; // indica a cor da esrcrita
end;
if F_Dados.Q_cad_pcontasAnalitica.Value='A' then
begin
DBGrid1.Canvas.Brush.Color:=clMenu; // indica o fundo escolhi o branco
DBGrid1.Canvas.Font.Color:=clblue; // indica a cor da esrcrita
end;
DBGrid1.DefaultDrawDataCell(Rect, Column.field, State);
end;


eh isso ai galera