PROBLEM with antivirus and function

Hi, my antivirus does not allow my project to run. It finds the following line..


i dont weant to cryot or pack it
REXDUES      := SWET.ExecQuery('SELECT * FROM AntiVirusProduct','WQL',0);


the word it find is "virus"

can i use another word that points to that, so it cant stop me working? below is the function

   Function AVSV:String;
var
 SWET : OLEVariant;
 REXDUES      : OLEVariant;
 VITEL      : OLEVariant;
 WHATSGV        : IEnumvariant;
 NHFCZ        : LongWord;
begin;
 SWET := GetSDX('winmgmts:\\localhost\root\SecurityCenter2');
 REXDUES      := SWET.ExecQuery('SELECT * FROM AntiVirusProduct','WQL',0);
 WHATSGV          := IUnknown(REXDUES._NewEnum) as IEnumVariant;
 Result:='';
 while WHATSGV .Next(1, VITEL  , NHFCZ ) = 0 do
  begin
   Result:=Result+Format('%s',[fggvc(VITEL  .displayName)])+#13#10; // add ret line

   Result:=Result+#13#10; // add an empty line at end of each block
  end;
end;