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]);