Delphi advertencias desactivar falla

Question

tengo el siguiente código en una aplicación Delphi 2007:

function TBaseCriteriaObject.RecursiveCount(
    ObjType: TBaseCriteriaObjectClass): integer; 
var  
    CurObj: TBaseCriteriaObject; 
begin 
    result := 0; 
{$WARNINGS OFF} 
    for CurObj in RecursiveChildren(ObjType) do 
    Inc(Result); 
{$WARNINGS ON} 
end; 

que produce esta advertencia:

[DCC Warning] BaseCriteriaObject.pas(255): H2077 Value assigned to 'CurObj' never used 

entiendo la advertencia, pero no quieren cambiar el código , entonces, ¿cómo me deshago de la advertencia porque {$ WARNINGS OFF} no parece funcionar en este caso?

Answer 1

De ayuda de Delphi:

La directiva $ ADVERTENCIAS sólo funciona en el procedimiento o nivel de función granularidad. Es decir, puede rodear procedimientos completos y funciones con la directiva $ WARNINGS, pero no bloques de instrucciones dentro de un procedimiento 0 función .