La función GetSystemInfo() proporciona información sobre el sistema. Su utilización es simple, tan solo precisa utilizar la estructura System_info, y para ello se le pasa como parámetro un puntero a esa estructura, en este ejemplo la variable lpSystemInfo

 
var
  lpSystemInfo:TsystemInfo;
  NumProc:integer;
begin
  GetSystemInfo(lpSystemInfo);
  NumProc:=lpSystemInfo.dwProcessorType;
  Showmessage(InttoStr(NumProc));
end;
 
 

El resultado con este sistema viene dado por códigos, y la posibilidad de información varía según el Windows utilizado, además no distingue el fabricante del procesador, un AMD K6 devolverá un código 5 como si de un Pentium se tratara.