Detecting HT Technology
To determine whether a processor has HT Technology, use the instruction CPUID with the content of the register EAX equals to one. If bit 28 of register EDX is set, the processor supports HT Technology. Note that this only asserts that this processor is HT Technology capable; it does not state whether HT Technology is enabled or not.

   ...
int IsHTSupported = 0;
__asm
   {
   ...
mov      eax,    1
   cpuid
   test        edx,   0x10000000   // Check if bit 28 in EDX is set
   jz  HT_Not_Support
   mov      IsHTSupport,   1
   HT_Not_Support:
   }

function TCpuData.checkhtt:Boolean;
var
ht: dword;
begin
  asm
    push eax
    push ebx
    push ecx
    push edx
    mov eax,1
    db $0F,$A2
    mov ht,EDX
    pop edx
    pop ecx
    pop ebx
    pop eax
  end;
ht:=(ht shr 28) and $1;
checkhtt:=(ht=1);
end;