[Yurk@]

т.е. для той же функции

Код:

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

(например) тебе нужно в начале самой функции изначально определить результат по дефолту, типа:

Код:

Function IsFirewallEnabled:boolean;
Var
  objFirewall,objPolicy:OleVariant;
begin
Result:=False;
  Try
...
end;