مشكلة في منفذ الطابعة

ارجو المساعدة حول منفذ الطابعة

كتبت برنامج بالدالفي يرسل بيتات الى منفذ الطابعة ولكن عند ضغط الزر ظهر لي الاعتراض الموجود في المرفق:

هذا هو الكود:

procedure TForm1.Button1Click(Sender: TObject);
begin
asm
mov DX,$378;
mov AL,$1;
out DX,AL;
end;
end;

علما ان نسخة الدالفي فهي Delphi 7 اما نظام التشغيل فهو Windows XP

وشكرا

untitled1.bmp