delphi xe obtiene información de CPU y otro hardware

uses?HardWareInfo.pas?{Consulte la unidad personalizada, consulte el archivo adjunto}

procedure?TForm1.Button1Click(Sender:?TObject);

var CPUinfo:TCPU_info;// Definir objeto de CPU Diskinfo:TDisk_info;?//Disco duro Memoryinfo:TMemory_info;?//memoria NICinfo:TNIC_info;//tarjeta de red VGAinfo:TVGA_info;//tarjeta gráfica

comenzar //crear instancia CPUinfo: = TCPU_info.Create; Diskinfo:=TDisk_info.info.Create; Memoryinfo:=TMemory_info.Create; NICinfo:=TNIC_info.Create; VGAinfo:=TVGA_info.Create; * ******************UPC****************************** '); memo1.+CPUinfo.GetCpuFactory); memo1.Lines.Add('Modelo:' +CPUinfo.GetCpuModel); memo1.Lines.Add('Conteo:' +CPUinfo.GetCPUCount); ('****** **************** disco duro ************************* *'); memo1.Lines.Add( Diskinfo.print_diskinfo); memo1.Lines.Add('*** ******************* memoria ******* ********** ********'); memo1.Lines.Add(Memoryinfo.GetMemorysize); memo1.Lines.Add(Memoryinfo.Getvirtualmemory); .Getvirtualmemory); memo1.Lines.Add(Memoryinfo.Getvirtualmemory);