[Rokuell]

Вот модуль FastcodeCPUID.pas
добавляешь в свой проект
CPU.InstructionSupport - набор из TInstructions

Код:

  TInstructions =
    (isFPU, {80x87}
    isTSC, {RDTSC}
    isCX8, {CMPXCHG8B}
    isSEP, {SYSENTER/SYSEXIT}
    isCMOV, {CMOVcc, and if isFPU, FCMOVcc/FCOMI}
    isMMX, {MMX}
    isFXSR, {FXSAVE/FXRSTOR}
    isSSE, {SSE}
    isSSE2, {SSE2}
    isSSE3, {SSE3*}
    isMONITOR, {MONITOR/MWAIT*}
    isCX16, {CMPXCHG16B*}
    isX64, {AMD AMD64* or Intel EM64T*}
    isExMMX, {MMX+ - AMD only}
    isEx3DNow, {3DNow!+ - AMD only}
    is3DNow); {3DNow! - AMD only}

для проверки напр для EM64T:

Код:

if isX64 in CPU.InstructionSupport then ...

PS: Найдено сдесь:
http://www.google.ru/codesearch?hl=r...eCPUID.pas#l44
скачать:
http://www.google.ru/codesearch/url?...cU_r1lqoG0-B7w