Erro no codigo em Assembler no delphi

Alquem pode me dizer, que tipo de erro é este no codigo abaixo? E
Quando trabalho com Assembler o que devo declarar ou não em:
interface
uses{ uses clause }
SysUtils, Windows, Messages, Classes, Graphics, Controls,
Forms, Dialogs;

procedure TFormLed.Timer2Timer(Sender: TObject);
var
X, A: String;
D, G: Word;
Y, I, E: Integer;
begin
//codigo em Assembler
Asm
Mov dx,379h
In al, dx
Mov D, Al //O erro é nesta linha
// [Error] Led.pas(323): Operand size mismatch
end;
Str(D, X);
EditBinarioBase1.text:= X;
end;

Abraços
juarezber@terra.com.br