Delphi отключает сбои предупреждений

У меня есть следующий код в приложении 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;

Который производит это предупреждение:

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

Я понимаю предупреждение, но не хочу изменять код, поэтому как я избавляюсь от предупреждения, потому что {$WARNINGS ПРОЧЬ}, кажется, не работает в этом случае?