Dbgrid Linha Vermelha

Coloquei o seguinte codigo na procedure

If dminscuser.qrypesquisadtexclusao.asstring <> ´´ then
begin
grdPesquisa.canvas.brush.color:=clred;
grdPesquisa.canvas.font.color:=clblack;
end
else
begin
grdPesquisa.canvas.brush.color:=clWhite;
grdPesquisa.canvas.font.color:=clblack;
end;
grdPesquisa.Canvas.FillRect(Rect);
grdPesquisa.defaultdrawcolumncell(rect,datacol,column,state);


Como eu faço para quando selecionado uma linha no Dbgrid...apareça a linha azul...tb.....???

Obs. Desta maneira nao esta aparecendo......


Evandro Araujo de Abreu
Uniodonto Campinas