[Redstason]

Здраствуйте, есть у меня вот такой код:

Код:

1 2 3 4 5 6 7 8 9 10

procedure TFrmMain.Button1Click(Sender: TObject);  var   jpg : pJpeg; begin  jpg:=NewJpeg;  jpg.LoadFromFile('stas.jpg');  Image1.Width := jpg.Width ;  Image1.Height:= jpg.Height;  <font color="Red">jpg.Draw(Image1.Canvas.Handle, 0, 0);</font> end;

На выделенной красным строке у меня выскакивает ошибка:

raised exception class EAccessViolation with message 'Access violation at addres 0046F33D in module Pr.exe '

в модуле KOL_ASM.inc в этой части :

Код:

1 2 3 4 5 6 7 8 9 10

function TBitmap.GetEmpty: Boolean; asm PUSH ECX <font color="Red">MOV ECX, [EAX].fWidth</font> JECXZ @@1 MOV ECX, [EAX].fHeight @@1:TEST ECX, ECX POP ECX SETZ AL end;

В чем тут дело?