Conocer el tipo de procesador.

Utilizo wProcessorLevel aunque el problema es que está preparada para procesadores de tipo Intel. En estos se puede “afinar” más con el uso conjunto de wProcessorRevision, que como el anterior devuelve un valor de tipo Word, pero no es fiable en procesadores de otras marcas.

procedure TForm1.Button1Click(Sender: TObject);
var
  Sistema:TSystemInfo;
  Cvalor:Cardinal;
  Evalor:Extended;

begin

  GetSystemInfo(Sistema);
  CValor:=Sistema.wProcessorLevel;
  case Cvalor of
    3 : StringGrid1.Cells[1,9]:='80836';
    4 : StringGrid1.Cells[1,9]:='80486';
    5 : StringGrid1.Cells[1,9]:='Pentium';
    6 : StringGrid1.Cells[1,9]:='Superior';
  end;
  EValor:=Sistema.wProcessorRevision;
  StringGrid1.Cells[0,1]:=Format('%10n',[EValor]);:=Format('%10n',[EValor]);