Fórum Verificar Impressora #189006

Caros colegas,

tenho este codigo que me passaram mas da um erro de memoria
com eu revolvo isso.

por que presico verificao status da impressora

Código Completo:

Function OnLine(Porta:Word):Boolean;
Const
Portas :Byte = $02;
Var
Res :Byte;
Begin
{ Código em Assembler }
Asm
mov ah,Portas; {Requisita o acesso as portas}
mov dx,Porta;{Define a porta de teste}
[b:26e7c19c1c]Int $17; {Chama a interrupção de Impressora} [/b:26e7c19c1c]
mov Res,ah; {Guarda em Res o resultado da operação }
end;
Result := (Res and $80) = $80; {Testa o valor de saída}
End;

o erro é ==> access violation at address 00454d6e in modulo Project.exe, read of address FFFFFFFF
acontece este erro qdo chega na execucao do Int $17; neste linha

me ajudem por favor

fcremm felipe.cremm@itelefonica.com.br