取数据类型长度

  D: DWORD;
begin
  asm
    MOV Eax, type Integer
    mov D, 0
    mov D, Eax
  end;
  Caption := IntToStr(D);