怪事！D7编译简单代码生成exe,mcafee报告有病毒！

所有源码：
unit Unit1;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Edit2: TEdit;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;var
  Form1: TForm1;implementation{$R *.dfm}procedure TForm1.Button1Click(Sender: TObject); Var   s,r:string;   
          i:integer;   
  begin   
          s:=Edit1.Text;
          r:='';
          for   i:=1   to   Length(s)   do   
            r:=r+   IntTostr(Ord(s[i]));   
          edit2.Text   :=r;   end;end.程序用途：转换字符串为ASCII码。
怪事：编译后生成的exe被mcafee 认为是 backdoor-cpi ，判定为特洛伊病毒。
问题：这是怎么回事啊？请教各位朋友？