Ayuda al recorrer el resultado de un select

[tebre]

oka lo chceque y si fuinciono pero no me hizo nada..es que esta mal el codigo...

ya estuve buscando varios codigos y estoy tratando de adaptarlo al mio pero no quedqa.....quiero que me pinte mi datagrid apartir de una condicion..te muestro otro codigo para ver si me puedes ayudar

esto lo busque en foro:

Código Delphi [-]
 
if (Column.Index = 2) and (Column.Field.Dataset.FieldbyName('PRECIO').AsFloat < 0) then  //cambie esta linea (bueno la adapte)
     if (gdFocused in State) then    
     Begin      
         DBGrid1.canvas.brush.color := clBlue;    
     end    
     else    
     Begin      
         DBGrid1.Canvas.Font.Color := clRed; //Cambie esta linea
         DBGrid1.DefaultDrawColumnCell(rect,DataCol,Column,State);
     end;

lo trato de adaptar al mio asi:

Código Delphi [-]
procedure TFrmDetalleSolicitudAutorizada.GridDetalleSolicitudAutorizadasDrawColumnCell(Sender: TObject; const Rect: TRect; DataCol: Integer; Column: TColumn;State: TGridDrawState);
begin
 if (Column.Index = 7) and (Column.Field.DsOpSolicitud.FieldbyName('Seleccionado').AsString = 'True') then  //EROR en esta linea me marca errores
 begin
   if (gdFocused in State) then
    Begin
        GridDetalleSolicitudAutorizadas.canvas.brush.color := clBlue;
    end
    else
     Begin
         GridDetalleSolicitudAutorizadas.Canvas.Font.Color := clRed;          GridDetalleSolicitudAutorizadas.DefaultDrawColumnCell(rect,DataCol,Column,State);
     end
 end
end;