Ayuda al recorrer el resultado de un select

[tebre]

aqui le muestro mi codigo..haber si puede ver el error llevo rato y no doy con el error.......

cabe aclarar que el codigo que es para pintar un datagrid..dependiendo de una condicion....

Código Delphi [-]
 
procedure TFrmDetalleSolicitudAutorizada.GridDetalleSolicitudAutorizadasDrawColumnCell(Sender: TObject; const Rect: TRect; DataCol: Integer; Column: TColumn;State: TGridDrawState);
begin
  Datos.QryFindSolicitud.Active:= False;
  Datos.QryFindSolicitud.SQL.Clear;
  Datos.QryFindSolicitud.SQL.Add('SELECT Seleccionado');
  Datos.QryFindSolicitud.SQL.Add('FROM DetalleSolicitud');
  Datos.QryFindSolicitud.SQL.Add('WHERE FolioSolicitud='+ QuotedStr(EdFolio.Text));
  Datos.QryFindSolicitud.Active:= True;
   With Datos.QryFindSolicitud Do
   begin
     First;
     While Not Eof Do
     begin
       if Datos.QryFindSolicitud.FieldbyName('Seleccionado').AsString ='True' then
        begin
         if (gdFocused in State) then
          Begin
            GridDetalleSolicitudAutorizadas.canvas.brush.color := clBlue;
          end
          else
            Begin
            GridDetalleSolicitudAutorizadas.Canvas.Font.Color := clRed; //Cambie esta linea
            GridDetalleSolicitudAutorizadas.DefaultDrawColumnCell(rect,DataCol,Column,State);
          end
        end
       Next;// ERROR me lo marca en rojo... expected ; but receiver and identifier 'Next'
     end
   end
end;