Conferindo se o processador da máquina é 386, 486 ou pentium

{A função abaixo implementa uma rotina que através da função GetSystemInfo retorna se o processador instalado na sua máquina é um 386, 486 ou Pentium. Se o seu processador não for nenhum destes apontados, a função retorna que seu processador é desconhecido.

Obs: Para ver o resultado desta rotina, ponha um componente Button no formulário, dê um duplo clique no mesmo e insira o código descrito abaixo da função.}


function Info: String;var SysInfo: TSystemInfo;
begin
GetSystemInfo(SysInfo);
case SysInfo.dwProcessorType of
386 : result := 'Processador 80386';
486 : result := 'Processador 80486';
586 : result := 'Processador Pentium'; else
result := Format('Processado desconhecido (%d)', [SysInfo.dwProcessorType]);
end;
end;

//Como Usar:

procedure TForm1.Button1Click(Sender: TObject);
begin
Showmessage('Nesta máquina temos :'+ Info);
end;