Не могу выгрузить из матрицы Assembler+Delphi

unit Ass;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;
 
type
  TMainForm1 = class(TForm)
    ListBox1: TListBox;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  MainForm1: TMainForm1;  
  b:array [0..180] of word integer;
  
implementation
 
{$R *.dfm}
 
 
procedure TMainForm1.Button1Click(Sender: TObject);
 Label k3;
 var
  Total: Longword;
  OperBegin, OperEnd: TTimeStamp;
  ii,ir,i1:  integer;
 
begin
 OperBegin:=DateTimeToTimeStamp(Now);
  
 ii:=0;// Установка переменой в 0 .
 i1:=1; // Переменная для увеличения на 1 в каждой ячейки памяти .
 
 asm
             push ecx
             xor ecx,ecx
             lea ecx,b 
            
             fldz // Установка в 0.
             push edx 
             xor edx,edx  
      k3:   mov edx,ii  //Загрузка эффективного адреса
             fist [ecx+2*edx]  //Загрузка в ячейку по эффективному адресу. 
             fadd i1  // Увеличение на 1 в следующею ячейку памяти
 
             inc ii // Увеличение на 1 переменную эффективного адреса
             cmp ii, 181// Сравнение с ограничением.
             jb k3 // Переход по метке, если переменная эффективного адреса меньше 181.
            fistp i // Освобождение стека для его балансировки.
 
              push edi // Проверяем содержимое матрицы.
              xor edi,edi
              push edx
              xor edx,edx
              mov edx,100 // Задаем эффективный адрес.
              mov edi, [ecx+2*edx] // Выносим в регистр edi содержимое ячейки.
              pop edx
              mov ir,edi // Содержимое ячейки в переменную для просмотра.
              pop edi
                pop edx //
                pop ecx //
   
    
  end;
 
 
  OperEnd:=DateTimeToTimeStamp(Now);
  Total:=OperEnd.Time-OperBegin.Time;
  ListBox1.Items.Add(IntToStr(ir)+' Содержание ячейки');
  ListBox1.Items.Add(IntToStr(Total)+' MSec');
end;
 
 
end.

  b:array [0..180] of word integer; 
  r1:=1; // Установка переменой r1 в 1
 
 asm
             push ecx
             xor ecx,ecx
    lea ecx,b
             fldz // Установка стека в 0.
             push edx 
             xor edx,edx
      k3:    mov edx,ii//Загрузка эффективного адреса.
             fist [ecx+2*edx]// Загрузка ячейки по эффективному адресу. 
             fadd r1 // Увеличение на 1 для следующей ячейки матрицы.
 
              
                 mov edx,0 //Задаем эффективный адрес для вывода содержание ячейки на экран. ???
                 push edi
                 xor edi,edi
                 mov edi, [ecx+2*edx]
                 mov ir,edi//  Вывод содержание ячейки на экран. 
                 pop edi
             inc ii // Увеличение на 1 переменой ii для эффективного адреса.
             cmp ii, 181// Ограничитель для переменой ii эффективного адреса .
             jb k3 // Если переменная  ii меньше 181 , то переходит по метке k3 .
           
             pop edx //
                pop ecx //