Получить статус принтера, под NT Опции

[Jill]

Нашла неплохой код:

function TestPrinterStatus(LPTPort: Word): Byte;  
var  
  Status: byte;  
  CheckLPT: word;  
begin  
  Status := 0;  
  if (LPTPort >= 1) and (LPTPort <= 3) then  
  begin  
    CheckLPT := LPTPort - 1;  
    asm  
      mov dx, CheckLPT;  
      mov al, 0;  
      mov ah, 2;  
      int 17h;  
      mov &Status, ah;  
    end;  
  end;  
  Result := Status;  
end;

Но под NT он не работает!!! Просто из паскаля - все ок, а вот из делфи - ни в какую!!! Кто сталкивался с подобной проблемой? Что делать?