[poli-smen]

Сообщение от maratikus

он есть я его просто не внес сюда

В данном случае компилятор правильно ругается.
Возьмём любую твою функцию, например:

Код:

Function IsFirewallEnabled:boolean;
Var
  objFirewall,objPolicy:OleVariant;
begin
  Try
    objFirewall := CreateOLEObject('HNetCfg.FwMgr');
    objPolicy := objFirewall.LocalPolicy.CurrentProfile;
    Result:=objPolicy.FirewallEnabled;
  except
  end;
end;

Если например сработает исключение на первой строчке (там где CreateOLEObject), мы минуя присвоение результата сразу прыгнем на except где тихонько обработаем это исключение. И что в таком случае вернёт твоя функция? - Мусор. Вот компилятор и предупреждает, что эта функция может вернуть непредсказуемый результат.