[Redstason]

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

Код:

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

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

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

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

Код:

function TBitmap.GetEmpty: Boolean;
asm
PUSH ECX
MOV ECX, [EAX].fWidth
JECXZ @@1
MOV ECX, [EAX].fHeight
@@1:TEST ECX, ECX
POP ECX
SETZ AL
end;

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