Не работает Image2

unit turnsquar4;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,Jpeg,
  Dialogs,StdCtrls, ExtDlgs, ExtCtrls;
 
type
  TForm1 = class(TForm)
    ListBox1: TListBox;
    Button1: TButton;
    OpenPictureDialog1: TOpenPictureDialog;
    Image2: TImage;
    procedure Button1OnClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  f: TFileStream;
  Form1: TForm1;
  
   turncolour: array[0..335,0..445] of integer;
 
implementation
 
{$R *.dfm}
 procedure LoadPicture(FileName: string; Bitmap: TBitmap);
var
  pic: TPicture;
begin
  pic := TPicture.Create;
  try
    pic.LoadFromFile(FileName);
    Bitmap.Width  := pic.Graphic.Width ;
    Bitmap.Height := pic.Graphic.Height;
    Bitmap.Canvas.Draw(0, 0, pic.Graphic);
  finally
    pic.Free;
  end;
end;
 
 
 
procedure TForm1.Button1OnClick(Sender: TObject);
 
  
    var
  Total: Longword;
  OperBegin, OperEnd: TTimeStamp;
 
begin
 OperBegin:=DateTimeToTimeStamp(Now);
 
 
    Image2.Picture.Bitmap.Canvas.Pen.Color := clBlack;
    Image2.Picture.Bitmap.Canvas.Pen.Width :=1;
    Image2.Picture.Bitmap.Canvas.Brush.Style := bsClear;
 
 
  
  if OpenPictureDialog1.Execute then
  begin
 
      Image2.AutoSize := true;
      LoadPicture(OpenPictureDialog1.FileName, Image2.Picture.Bitmap);
 
 asm
                       push eax 
                        xor eax,eax  
                        push edx    
                        xor edx,edx
                        push ecx
                        xor ecx,ecx
                      mov cx,sx
                      imul ecx,446
                      add cx,sy 
                        mov dx,syL2
                        shl edx,16// 
                        mov dx,sxL2 
                      lea eax,turnfull
                      mov [eax+4*ecx],edx 
                      inc icountTurnFull//
                      inc  icountLine2Stop
                        pop ecx 
                        pop edx//
                        pop eax// 
                           push eax  // 
                           xor eax,eax
                         mov icL2Turn,eax
                            pop eax
                      jmp ii4//  
   
end;
 
  ini:=0; 
begin
   for ix:=0 to 335 do 
begin
   for iy:=0 to 445 do 
begin
 
 if  ( turnfull [ix,iy]>0)then 
begin
  ini:=ini+1;
  iy2:= turnfull[ix,iy] shr 16; 
  ix2:= turnfull[ix,iy] and $0000ffff;
  Image2.Picture.Bitmap.Canvas.Pixels[ix,iy] := clRed;
 { ListBox1.Items.Add(IntToStr(ini ) + ' TurnFull Íîìåð ÿ÷åéêè.');
  ListBox1.Items.Add(IntToStr(ix ) + ' ixTurnfull');
  ListBox1.Items.Add(IntToStr(iy ) + ' iyTurnfull');
  ListBox1.Items.Add(IntToStr(ix2 ) + '     ixline2');//
  ListBox1.Items.Add(IntToStr(iy2 ) + '     iyline2');}
end;
 end;
  end;
   end;
 
OperEnd:=DateTimeToTimeStamp(Now);
  Total:=OperEnd.Time-OperBegin.Time;
  ListBox1.Items.Add(IntToStr(Total)+' MSec');

   Label aa0,aa1,aa2,aa3,aa4,aa5,aa6,aa7,aa8,aa9,aa10,
        bb0,bb1,bb2,bb3,bb4,bb5,bb6,bb7,bb8,bb9,
        bbb0,bbb1,bbb2,
        cc0,cc1,cc2,
        check0,check1,
        dd0,dd1,dd2,dd3,dd4,dd5,dd6,dd7,dd8,dd9,dd10,
        ee0,ee1,ee2,ee3,ee4,
        ff0,ff1,ff2,ff3,ff4,ff5,ff6,ff7,ff8,
        gg0,gg1,gg2,gg3,gg4,gg5,gg6,gg7,gg8,gg9,gg10,gg11,gg12,gg13,gg14,gg15,gg16,gg17,
        hh0,hh1,hh2,hh3,hh4,hh5,hh6,hh7,hh8,hh9,hh10,
        ii0,ii1,ii2,ii3,ii4,ii5,ii6,ii7,ii8,ii9,
        jj0,jj1,jj2,jj3,jj4,jj5,jj6,jj7,jj8,jj9,jj10,jj11,jj12,jj13,jj14,jj15,jj16,jj17,jj18,jj19,jj20,jj21,jj22,
        kk0,kk1,kk2,kk3,
        ll0,ll1,ll2,ll3,ll4,ll5,ll6,ll7,ll8,ll9,
        nn0,nn1,nn2,nn3,nn4,nn5,nn6,nn7,nn8,nn9,
        oo0,oo1,oo2,oo3,oo4,oo5,oo6,oo7,oo8,oo9;
    var
  Total: Longword;
  OperBegin, OperEnd: TTimeStamp;
 iB,iCheckCount,iL2,icL1,icL2,icL1Turn,icL2Turn,iColour,iCountA,icountA1,icountColour,icountExpSquar,icountL1,icountL2,icountL1Turn,icountL2Turn,icountLine1,icountLine2,icountLine1Turn,icountLine2Stop,icountLine2Turn,iCountSurroundings,icountTurnFull,
 icountSquar,icountStep,icountTurnColour,iDegree,iDegreeTurn,iDegreeTurnLine1,iDiffTurn,ie,iHypotenuseSquar, ik,iKeep,il,iLongMx,ini,iMove,iR1,iR2,iShifting,
 ix,ix1,ix2,ixExpand,ixcpMx,iXCrossLinePoint,iXCrossLineTurnPoint,ixDiffSquar,iXDoublestep,iXDownNeighbour,iXDownNeighbourTurn,iXLeftNeighbour,iXLeftNeighbourTurn,iXline2,iXLine2TurnBase,ixMin,ixNext,iXpass,ixPl,iXPicture,iXPictureCenter,iXPictureStart,iXPictureTurn,iXPictureTurnStart,
 ixTurn,ixTurnFull,ixTurnSquar,iy,iy1,iy2,iyDiff,iYEarly,iyExpand,iycpMin,iYCrossLinePoint,iYCrossLineTurnPoint,iYLeftNeighbour,iYLeftNeighbourTurn,iYDoublestep,iYDownNeighbour,iYDownNeighbourTurn,iYLine2TurnBase,iYMax,iyMaxDiff,iyMin,iyNext,iYpass,iYPicture,iYPictureCenter,iYPictureStart,iYPictureTurn,iYPictureTurnStart,iYPictureTurnStop,iyPl,iyTurn,iyTurnFull,iyTurnMove,iyTurnSquar,i100:integer;
 
 re, re2,rCheck,rDiffTurn,rIncrease,rKeep,rl,rl2,rn,rR,rR2,rTurn,rx,rx1,rx2,ry,ry1,ry2,rxTurn,ryTurn,rxTurnMove,ryTurnMove,
  rxTurnSquar,ryTurnSquar :real;
 
  bBlue,bBlue1,bCheck,bGreen,bGreen1,bRed,bRed1:byte;
 
 sx,sxDiff,sxL1,sxL2,sxL1Turn,sxL2Turn,sy,syDiff,syL1,syL2,syL1Turn,syL2Turn:short;