[delphi.com.ar]

No lo pude probar, pero... ¿Qué te parece algo así?

procedure SendToPort(AAddr, AValue:Word);
var
  bValue : Byte;
begin
   bValue:= Byte(AValue);
   asm
      mov dx,AAddr
      mov AL,bValue
      out DX,AL
   end;
end;

Saludos!