глюк в циклах

[Rio309]

Почему то при коде

 for i:=1 to 4 do
  for j:=1 to 10 do
   updmod[i,j]:=model[i,j];

i и j идет не от 1 до 4х, а от 4х до 1.
Это во всех подобных циклах программы.

Нашел одно решение, сделать переменные i и j не локальными, а Глобальными, но мне такое не подходит .

[Utkin]

Приведи полный текст процедуры

[Rio309]

там слишком болшая процедура, но такой глюк во всех процедурах, вот процедура поменьше:

procedure TForm1.FormCreate(Sender: TObject);
var i,j:integer;
begin
 for i:=1 to 4 do
  for j:=1 to 9 do
  begin
   model[i,j]:=0;
   updmod[i,j]:=0;
   mov[i,j]:=0;
   rot[i,j]:=0;
   end;
end;

Теперь вообще странно, не во всех процедурах такое.
Как то оно вообще бредово стало, например есть в уже приведенном коде:

procedure TForm1.FormCreate(Sender: TObject);
var i,j:integer;
begin
 for i:=1 to 4 do
  for j:=1 to 9 do
  begin
   model[i,j]:=0;
   updmod[i,j]:=0;
   mov[i,j]:=0;
   rot[i,j]:=0;
   end;
end;

изменить то к чему присваивается, то идет все нормально:

procedure TForm1.FormCreate(Sender: TObject);
var i,j:integer;
begin
 for i:=1 to 4 do
  for j:=1 to 9 do
  begin
   model[i,j]:=i;
   updmod[i,j]:=j;
   mov[i,j]:=0;
   rot[i,j]:=0;
   end;
end;

[Somebody]

Это не глюк, а оптимизация, и никаким образом не влияет на работу программы. Для морального удовлетворения при отладке можно использовать {$O-} в начале для отключения оптимизации.

[raxp]

иногда компилятору "удобнее" сделать как ему нравиться...
вот именно, оптимизация

а вообще, разве это влияет на ваш результат?