Cosa de locos

[bosterito]

Hola amigos del foro.
Tengo un problema que me está volviendo loco . El problema es que tengo un valor que lo veo en el wath, pero la comparación dice que no es igual. Ahí les mando el código:

Código Delphi [-]
procedure Prueba22( );
Var
i, j, va : Integer;
mm1 : array [1..2, 1..2] of integer;
begin
mm1[1,1]:= 10;mm1[1,2]:= 20;
mm1[2,1]:= 30;mm1[2,2]:= 90;
va := 0;
j := 1;
while ( j <= 2 ) do
begin
i := 1;
while ( i <= 2 ) do
begin
if ( mm1[j,i] = 90 ) then
begin
va := -1000;
va := -1000;
va := -1000;
end;
inc(i);
end;
inc (j);
end;
end;
 
procedure TForm1.Button1Click(Sender: TObject);
begin
Prueba22( );
end;

Salu2