Delphi-Help

function TForm1.CheckSSE: boolean;

var

  Temp: dword;

begin

   Temp := 1;

   asm

      push ebx

      mov eax,1

      db $0F,$A2

      test edx,$2000000

      jz @NOSSE

      mov edx,0

      mov Temp,edx

      @NOSSE:

      pop ebx

   end;

   CheckSSE := Temp = 0;

end;

procedure TForm1.Button1Click(Sender: TObject);

begin

   if CheckSSE then

      ShowMessage( 'Поддерживается' )

   else

      ShowMessage( 'Не поддерживается' )

end;