Função impressora on line

Função para saber se a impressora esta on line ou off line , feita no Delphi 7.

function TForm1.ImpressoraOnLine: Boolean;
Const
  PrnStInt : Byte = $17;
  StRg     : Byte = $02;
  PrnNum   : Word = 0; {0 para Lpt1, 1 para Lpt2, etc}
Var
  nResult : Byte;
begin
  Asm
    Mov ah,StRg;
    Mov dx,PrnNum;
    Int $17;
    Mov nResult,ah;
  end;
  ImpressoraOnLIne := (nResult and $80) = $80;
end;