Delphi - ¿Por que no me funciona?

Hola a todos:
¿Por que no funciona este codigio? Me da un error de 'Operand Size Mismatch' en las instrucciones con Byte Ptr
procedure SetTime(Hour, Minute, Second, Sec100: Word); assembler;
asm
MOV CH,BYTE PTR Hour
MOV CL,BYTE PTR Minute
MOV DH,BYTE PTR Second
MOV DL,BYTE PTR Sec100
MOV AH,2DH
INT 21H
end;

Gracias

Alguna VERDADERA buena razon para usar Asembler y no codigo normal? (Bueno, a menos que lo hagas por diversion)

No soy experto en Assembler pero puedo ver que los parámetros de tu procedimiento son de tipo Word, es decir 2 bytes de largo, mientras que estas tratando de hacer un typecast a solo un byte, es por eso que el compilador se queja, no puede meter dos bytes dentro de uno. Operand Size Mismatch significa Tamaño de Operandos No Coinciden.