Windows - lendo da paralela

conheco um modo acesso a porta paralela em delphi, nao sei se esta a melhor forma recomendada mas 

da para quebra um galho, pois os sistema deveria tomar conta de todos os dispositivos e nao 

deixar ninguem acessar para nao ocorrer conflito, se voce quiser arriscar aqui vai:

-------------------------------------------------------------------------------------------------

{Funcao de leitura}

 function LePorta(): Byte;

 var

    Valor   : Byte;

    Endereco: Word;

 begin

         asm

           mov         DX,Endereco        {p/ paralela Endereco = $378 (end 0378H)}

           in        AL,DX

           mov        Valor,AL

         end;

         LePorta := Valor;

 end;

{Procedimento de escrita}

 procedure EscrevePorta(Valor: Byte);

 var

    Endereco: Word;

 begin

         asm

           mov         DX,Endereco        {p/ paralela Endereco = $378 (end 0378h)}

           mov        AL,Valor

           out        DX,AL

         end;

 end;