Function IsMMX: Boolean;
var
  bMMX:Boolean;
Begin
try;
  bMMX := false;
   Asm
      push     eax
      push     ebx
      push     ecx
      push     edx
 
  pushfd
  pop      eax
      mov      ebx,eax
      xor       eax,$00200000
      push     eax
      popfd
      pushfd
      pop      eax
      xor      eax,ebx
      je       @NoMMX
      mov      eax,$01
      test     edx,$800000
      jz       @NoMMX
      mov byte ptr[bMMX],1
 
  @NoMMX:
      pop      edx
      pop      ecx
      pop      ebx
      pop      eax
 End;
 except;
 end;
   result:=bMMX;
End;