Получение уровня процессора

Code:

function GettingProcLevel: string; 

var

Struc:    _SYSTEM_INFO;

begin

GetSystemInfo(Struc);

Case Struc.wProcessorLevel of

   3:  Result:='Intel 80386';

   4:  Result:='Intel 80486';

   5:  Result:='Intel Pentium';

   6:  Result:='Intel Pentium II or better';

end;

end;