Отрабатывает imul с ошибкой Delphi+Assembler

Формулировка задачи:

Здравствуйте. В прог. строка 5, imul esi,3 отрабатывает с ошибкой, если esi=1, то после умножения =9, если все это отработать в прог. Если написать отдельно этот участок прог. то все нормально. Заранее благодарю.

unit Assembler;

interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;
 
type
  TForm1 = class(TForm)
    ListBox1: TListBox;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.Button1Click(Sender: TObject);
 Label k1,q1;
 var
  b:array [0..2,0..2] of integer;
  a,c,s,s1,x,y: integer;
begin
 b[0,0]:=1; //    0 1 2  Г¬Г*ГІГ°ГЁГ¶Г*
 b[0,1]:=2;
 b[0,2]:=3; // 0  1 2 3
 b[1,0]:=4; // 1  4 5 6
 b[1,1]:=5; // 2  7 8 9
 b[1,2]:=6;
 b[2,0]:=7;
 b[2,1]:=8;
 b[2,2]:=9;
  asm

    mov edi,0 // Г®ГЎГ*ГіГ«ГїГҐГ¬ ГЇГҐГ°ГҐГ¬ГҐГ*Г*ГіГѕ Г¤Г«Гї Г±ГІГ°Г®ГЄ.
    lea eax,b //Г§Г*ГЈГ°ГіГ¦Г*ГҐГ¬ Г¬Г*ГІГ°ГЁГ¶Гі Гў Г*ГЄГЄГіГ¬ГіГ«ГїГІГ®Г°.
    mov ecx,0 // ГЅГІГ® Г±ГІГ®Г«ГЎГ¶Г».
    mov esi,0 // ГЅГІГ® Г±ГІГ°Г®ГЄГЁ.
k1: mov esi,edi
     mov s,esi //Г¤Г«Гї ГЄГ®Г*ГІГ°Г®Г«Гї ГЅГґ. Г*Г¤Г°ГҐГ±Г*.
     mov y,edi // Г±ГІГ°Г®ГЄГ* Г¤Г«Гї ГЄГ®Г*ГІГ°Г®Г«Гї ГЅГґ. Г*Г¤Г°ГҐГ±Г*.
q1: imul esi,3 // 5 ЭТА СТРОКА.
     mov s1,esi // esi1 Г¤Г«Гї ГЄГ®Г*ГІГ°Г®Г«Гї ГЅГґ. Г*Г¤Г°ГҐГ±Г*.
    add esi,ecx // ГЇГ°ГЁГЎГ*ГўГ«ГїГҐГ¬ Г±ГІГ®Г«ГЎГҐГ¶ Г¤Г«Гї ГЅГґГґГҐГЄГІГЁГўГ*Г®ГЈГ® Г*Г¤Г°ГҐГ±Г*.
     mov x,ecx // Г±ГІГ®Г«ГЎГҐГ¶ Г¤Г«Гї ГЄГ®Г*ГІГ°Г®Г«Гї ГЅГґ. Г*Г¤Г°ГҐГ±Г*.
    mov edx,[eax+4*esi]  //ГЇГҐГ°ГҐГ*Г®Г±ГЁГ¬ Г¤Г*Г*Г*Г»ГҐ Гў Г°ГҐГЈГЁГ±ГІГ° ГЁГ§ ГЇГ*Г¬ГїГІГЁ.
     {mov s,esi //Г¤Г«Гї ГЄГ®Г*ГІГ°Г®Г«Гї ГЅГґ. Г*Г¤Г°ГҐГ±Г*.}
    mov a,edx //ГўГ»ГЇГ®Г«Г*ГїГҐГІГ±Гї ГЄГ*ГЄГ®ГҐ-ГІГ® Г¤ГҐГ©Г±ГІГўГЁГҐ.
    inc ecx //   ГіГўГҐГ«ГЁГ·ГЁГўГ*ГҐГ¬ ГЄГ®Г«ГЁГ·ГҐГ±ГІГўГ® Г±ГІГ®Г«ГЎГ¶Г®Гў.
    cmp ecx,2{3} // Г±Г°Г*ГўГ*ГЁГўГ*ГҐГ¬ ГЄГ®Г«ГЁГ·ГҐГ±ГІГўГ® Г±ГІГ®Г«ГЎГ¶Г®Гў Г± Г®ГЈГ°Г*Г*ГЁГ·ГҐГ*ГЁГҐГ¬.
    jnz q1
    mov ecx,0 // Г®ГЎГ*ГіГ«ГїГҐГ¬ ГЄГ®Г«ГЁГ·ГҐГ±ГІГўГ® Г±ГІГ®Г«ГЎГ¶Г®Гў Г¤Г«Гї Г±Г«ГҐГ¤ГіГѕГ№ГЁГ© Г±ГІГ°Г®ГЄГЁ.
    inc edi // ГЇГҐГ°ГҐГµГ®Г¤ГЁГ¬ ГЄ Г±Г«ГҐГ¤ГіГѕГ№ГЁГ© Г±ГІГ°Г®ГЄГЁ.
    cmp edi,2{3} // Г±Г°Г*ГўГ*ГЁГўГ*ГҐГ¬ ГЄГ®Г«ГЁГ·ГҐГ±ГІГўГ® Г±ГІГ°Г®ГЄ Г± Г®ГЈГ°Г*Г*ГЁГ·ГҐГ*ГЁГҐГ¬.
    jnz k1
     imul esi,4 // Г¤Г«Гї ГЄГ®Г*ГІГ°Г®Г«Гї ГЅГґ. Г*Г¤Г°ГҐГ±Г*.
     mov c,esi // Г¤Г«Гї ГЄГ®Г*ГІГ°Г®Г«Гї ГЅГґ. Г*Г¤Г°ГҐГ±Г*.

  end;
  ListBox1.Items.Add(IntToStr(a)+' Г‘Г®Г¤ГҐГ°Г¦ГЁГ¬Г®ГҐ ГїГ·ГҐГ©ГЄГЁ ');
  ListBox1.Items.Add(IntToStr(x)+' ecx Г‘ГІГ®Г«ГЎГҐГ¶ ');
  ListBox1.Items.Add(IntToStr(y)+' edi Г‘ГІГ°Г®ГЄГ* ');
  ListBox1.Items.Add(IntToStr(s)+' esi ');
  ListBox1.Items.Add(IntToStr(s1)+' esi 1 ');
  ListBox1.Items.Add(IntToStr(c)+' ГЌГ®Г¬ГҐГ° Г*Г¤Г°ГҐГ±Г* ');
 
end;
 
end.

Решение задачи: «Отрабатывает imul с ошибкой Delphi+Assembler»

textual
                            Листинг программы 
                        

                                mov edi,0 // Г®ГЎГ*ГіГ«ГїГҐГ¬ ГЇГҐГ°ГҐГ¬ГҐГ*Г*ГіГѕ Г¤Г«Гї Г±ГІГ°Г®ГЄ.
    lea eax,b //Г§Г*ГЈГ°ГіГ¦Г*ГҐГ¬ Г¬Г*ГІГ°ГЁГ¶Гі Гў Г*ГЄГЄГіГ¬ГіГ«ГїГІГ®Г°.
    mov ecx,0 // ГЅГІГ® Г±ГІГ®Г«ГЎГ¶Г».
    mov esi,0 // ГЅГІГ® Г±ГІГ°Г®ГЄГЁ.
k1:q1: mov esi,edi
     mov s,esi //Г¤Г«Гї ГЄГ®Г*ГІГ°Г®Г«Гї ГЅГґ. Г*Г¤Г°ГҐГ±Г*.
     mov y,edi // Г±ГІГ°Г®ГЄГ* Г¤Г«Гї ГЄГ®Г*ГІГ°Г®Г«Гї ГЅГґ. Г*Г¤Г°ГҐГ±Г*.
    imul esi,3
     mov s1,esi // esi1 Г¤Г«Гї ГЄГ®Г*ГІГ°Г®Г«Гї ГЅГґ. Г*Г¤Г°ГҐГ±Г*.
    add esi,ecx // ГЇГ°ГЁГЎГ*ГўГ«ГїГҐГ¬ Г±ГІГ®Г«ГЎГҐГ¶ Г¤Г«Гї ГЅГґГґГҐГЄГІГЁГўГ*Г®ГЈГ® Г*Г¤Г°ГҐГ±Г*.
     mov x,ecx // Г±ГІГ®Г«ГЎГҐГ¶ Г¤Г«Гї ГЄГ®Г*ГІГ°Г®Г«Гї ГЅГґ. Г*Г¤Г°ГҐГ±Г*.
    mov edx,[eax+4*esi] {[eax+4*(ecx*3+1)]} //ГЇГҐГ°ГҐГ*Г®Г±ГЁГ¬ Г¤Г*Г*Г*Г»ГҐ Гў Г°ГҐГЈГЁГ±ГІГ° ГЁГ§ ГЇГ*Г¬ГїГІГЁ.
     {mov s,esi //Г¤Г«Гї ГЄГ®Г*ГІГ°Г®Г«Гї ГЅГґ. Г*Г¤Г°ГҐГ±Г*.}
    mov a,edx //ГўГ»ГЇГ®Г«Г*ГїГҐГІГ±Гї ГЄГ*ГЄГ®ГҐ-ГІГ® Г¤ГҐГ©Г±ГІГўГЁГҐ.
    inc ecx //   ГіГўГҐГ«ГЁГ·ГЁГўГ*ГҐГ¬ ГЄГ®Г«ГЁГ·ГҐГ±ГІГўГ® Г±ГІГ®Г«ГЎГ¶Г®Гў.
    cmp ecx,3 // Г±Г°Г*ГўГ*ГЁГўГ*ГҐГ¬ ГЄГ®Г«ГЁГ·ГҐГ±ГІГўГ® Г±ГІГ®Г«ГЎГ¶Г®Гў Г± Г®ГЈГ°Г*Г*ГЁГ·ГҐГ*ГЁГҐГ¬.
    jnz q1
    mov ecx,0 // Г®ГЎГ*ГіГ«ГїГҐГ¬ ГЄГ®Г«ГЁГ·ГҐГ±ГІГўГ® Г±ГІГ®Г«ГЎГ¶Г®Гў Г¤Г«Гї Г±Г«ГҐГ¤ГіГѕГ№ГЁГ© Г±ГІГ°Г®ГЄГЁ.
    inc edi // ГЇГҐГ°ГҐГµГ®Г¤ГЁГ¬ ГЄ Г±Г«ГҐГ¤ГіГѕГ№ГЁГ© Г±ГІГ°Г®ГЄГЁ.
    cmp edi,3 // Г±Г°Г*ГўГ*ГЁГўГ*ГҐГ¬ ГЄГ®Г«ГЁГ·ГҐГ±ГІГўГ® Г±ГІГ°Г®ГЄ Г± Г®ГЈГ°Г*Г*ГЁГ·ГҐГ*ГЁГҐГ¬.
    jnz k1
     imul esi,4 // Г¤Г«Гї ГЄГ®Г*ГІГ°Г®Г«Гї ГЅГґ. Г*Г¤Г°ГҐГ±Г*.
     mov c,esi // Г¤Г«Гї ГЄГ®Г*ГІГ°Г®Г«Гї ГЅГґ. Г*Г¤Г°ГҐГ±Г*.
                        