Delphi-Help

function GetClassProcessor: string;

var

  lpSystemInfo: TSystemInfo;

begin

   GetSystemInfo( lpSystemInfo );

   Result := Format( '%d', [lpSystemInfo.dwProcessorType] );

end;

procedure TForm1.Button1Click(Sender: TObject);

begin

   ShowMessage( 'Процессор класса x' + GetClassProcessor );

end;