Delphi 7 generates Mirror-4130 virus code

Hi All

'Delphi 7 Generates Mirror-4130 virus code'

At least I think that's what it does.

I have a button on a form and the following code:

var
Form1: TForm1;
type
twoDarray = array [1..3,1..2] of integer;
implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
i,j,value:integer;
Matrix : twoDarray ;
begin
for i := 1 to 3 do
begin
value := 0;
for j := 1 to 2 do
begin
Matrix[i,j]:=value;
value := value + 1;
end; // for j
end; // for i
end;


On compile, Delphi errors and says 'could not find Project1.exe' and my
Sophos Anit Virus pops up with 'Virus Mirror-4130 detected in project1.exe'

Removing the Matrix[i,j]:=value; line of code removes the problem, or
changing it to :

Matrix[i,j]:=value+1;
Matrix[i,j]:=Matrix[i,j]-1;

is also OK

Any comments?

Regards


John Allwork
j.b.allwork@xxxxxxxxx


.