Как обойти НОД (опознаёт программу, как троян)

function GetInetFile(const fileURL, FileName: String): boolean;
const
  BufferSize = 1024;
var
  hSession, hURL: HInternet;
  Buffer: array[1..BufferSize] of Byte;
  BufferLen: DWORD;
  f: File;
  sAppName: string;
begin
  Result:=False;
  sAppName:=ExtractFileName(Application.ExeName);
  hSession:=InternetOpen(PChar(sAppName),INTERNET_OPEN_TYPE_PRECONFIG,nil,nil,0);
  try
    hURL:=InternetOpenURL(hSession,PChar(fileURL),nil,0,0,0);
    try
      AssignFile(f, FileName);
      Rewrite(f,1);
      repeat
        InternetReadFile(hURL,@Buffer,SizeOf(Buffer),BufferLen);
        BlockWrite(f,Buffer,BufferLen)
      until BufferLen = 0;
      CloseFile(f);
      Result:=True;
    finally
    InternetCloseHandle(hURL)
    end
  finally
  InternetCloseHandle(hSession)
  end
end;

unit MainForm;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, StdCtrls, WinInet, URLMon, ShellAPI;
 
type
  TEXPDownLoadWin = class(TForm)
    ed_adress: TEdit;
    btn_load: TButton;
    ind_status: TShape;
    btn_folder: TButton;
    ed_name: TEdit;
    lbl_from: TLabel;
    lbl_to: TLabel;
    procedure ed_adressChange(Sender: TObject);
    procedure btn_folderClick(Sender: TObject);
    procedure btn_loadClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    rFolder: string;
    rAdress: string;
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  EXPDownLoadWin: TEXPDownLoadWin;
 
implementation
 
{$R *.dfm}
 
procedure TEXPDownLoadWin.ed_adressChange(Sender: TObject);
begin
  rAdress:=ed_adress.Text;
  ind_status.Brush.Color:=clGray
end;
 
procedure TEXPDownLoadWin.btn_folderClick(Sender: TObject);
begin
  ;
end;
 
function GetInetFile(const fileURL, FileName: String): boolean;
const
  BufferSize = 1024;
var
  hSession, hURL: HInternet;
  Buffer: array[1..BufferSize] of Byte;
  BufferLen: DWORD;
  f: File;
  sAppName: string;
begin
  Result:=False;
  sAppName:=ExtractFileName(Application.ExeName);
  hSession:=InternetOpen(PChar(sAppName),INTERNET_OPEN_TYPE_PRECONFIG,nil,nil,0);
  try
    hURL:=InternetOpenURL(hSession,PChar(fileURL),nil,0,0,0);
    try
      AssignFile(f, FileName);
      Rewrite(f,1);
      repeat
        InternetReadFile(hURL,@Buffer,SizeOf(Buffer),BufferLen);
        BlockWrite(f,Buffer,BufferLen)
      until BufferLen = 0;
      CloseFile(f);
      Result:=True;
    finally
    InternetCloseHandle(hURL)
    end
  finally
  InternetCloseHandle(hSession)
  end
end;
 
function DownloadFile(SourceFile, DestFile: string): Boolean; 
begin 
  try 
    Result := UrlDownloadToFile(nil, PChar(SourceFile), PChar(DestFile), 0, nil) = 0; 
  except 
    Result := False; 
  end; 
end; 
 
procedure TEXPDownLoadWin.btn_loadClick(Sender: TObject);
var
  s: string;
begin
  if ed_name.Text = '' then s:='Untitled.dlex' else s:=ed_name.Text;
  if GetInetFile(rAdress,rFolder+'\'+s) then
  begin
    ind_status.Brush.Color:=clLime
  end
  else
  begin
    ind_status.Brush.Color:=clRed
  end
end;
 
procedure TEXPDownLoadWin.FormCreate(Sender: TObject);
begin
  rFolder:='DL'
end;
 
end.