一段有趣的代码(被卡巴斯基当成木马)

procedure TForm1.Timer1Timer(Sender: TObject);
begin
    edit1.Text:='                           '+edit1.Text;
    edit2.Text:='                           '+edit2.Text;
    if (i mod 2)=0 then  //i为一个全局integer变量
    begin
      edit1.Text:='@@';
      edit2.Text:='@@';
    end;
    inc(i,1);//注掉此段代码，程序被卡巴斯基认作木马
end;