Не работает 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');

var
...
   colour: array[0..400,0..445] of integer;// [0..335,0..445]
 
...
 
      for ix:=0 to 335 do     //Столбец.  for ix:=0 to 335 do
      begin
        for iy:=0 to 445 do //Строка.for iy:=0 to 445 do
        begin
 
          bRed  := GetBValue(Image2.Picture.Bitmap.Canvas.Pixels[ix, iy] );// bRed
          bGreen := GetGValue(Image2.Picture.Bitmap.Canvas.Pixels[ix, iy] );
          bBlue  := GetRValue(Image2.Picture.Bitmap.Canvas.Pixels[ix, iy] );// bBlue
                                                                 //Первый байт выходит bRed, младшее слово, младший байт.
                                                                 //Второй байт выходит bGreen, младшее слово, старший байт.
                                                                 //Третий байт выходит bBlue, старшее слово, младший байт.
 
          if (0< bRed) or (0<bGreen) or (0<bBlue) then //  if (0< bRed) and (0<bGreen) and (0<bBlue) then //
          begin
            ini:=ini+1;
            icountColour:=icountColour+1;
 
            colour[ix,iy]:=RGB(bBlue,bGreen,bRed) ;//=RGB(bRed,bGreen,bBlue)
...

// Для картинки:
  Canvas.Pixels[столбец, строка]
 
// Для массива:
  colour[строка, столбец]

   colour: array[0..335,0..445] of integer;// [0..335,0..445]

   //Размер фото 335*447.