Codigo ASM en XP

[Fralva]

Hola Foro ! Me consulta es la siguiente: Tengo un soft funcionando el Win98 que maneja entre otras cosas, informacion en los puertos paralelos, mi manera de comunicarme es por medio de Codigo de Assembler envevido, Ej.

Function ConsultarBit(Direccion: Word; Bit: Byte): Boolean;
Begin
B := 1;
B := B SHL Bit;
ASM
mov dx,Direccion
In al,dx
mov A, al
End;
ConsultarBit := (B AND A) > 0;
End;

el problema es que ahora tengo que emigrar a WinXP y ni si quiera me compila, tengo idea q es por el manejo de los registros AL, el mensaje de error es : "Operand size mismatcht".

Como puedo mandar inf al LPT sin ASM ? Existe algun componente ?

Muchas gracias y confio en sus Conocimientos y Experiencia !!

Exitos Frank