colorear datos de un Grid

[rotsen26]

Buen día amigos de Clubdelphi...

Tengo un problema que no he podido solucionar, la cuestión es que tengo un grid con los datos seleccionados, y quiero que se coloreen los datos que cumplan con la condición. Tengo el siguiente código...

Código Delphi [-]
procedure Tfrm_Agrega.dbg_bsqDrawColumnCell(Sender: TObject; const Rect: TRect;
  DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
    if qry_articulopk_articulo.Value=ADOQuery1dpk.Value then
     begin  //qry_articulo.First;
       ADOQuery1.First;
       dbg_bsq.Canvas.Brush.Color := $00E6DC64;
       dbg_bsq.Font.Color := clBlack; // qry_articulo.Next;
       //adoquery1.Next;
    end;
    dbg_bsq.DefaultDrawColumnCell(Rect, DataCol, Column, State); 
end;

La cuestión que si se colorea, pero nomas el primer dato que cumple con la condición, pero los demás ya no!!!

Si alguien me podría ayudar se lo agradecería!!!