[apexcol]

definitivamente, la mejor forma de acceder es esta:

Código Delphi [-]
procedure ImprimirLPT1(const enviar: Byte);
begin
  asm
    mov dx, 378h
    mov al, enviar
    out dx, al
  end;
end;

Claro que puedes tambiérn usar enviar: Integer, pero eso te obligaría a usar un rango con AND AX, FFh y luego usar para asignar MOV AL, ENVIAR.BYTE[0]

Assembler con Delphi es suave, puedo usar lo mejor de turbo assembler, ya que está incorporado.

Edgar Rodriguez.