Delphi 10.3版本获取windows系统版本和CPU信息

procedure TForm1.Button1Click(Sender: TObject);
var
 mm:TRegistry;
 cpu:string;
begin
   mm:=TRegistry.Create;
   with mm do
   begin
     RootKey:=HKEY_LOCAL_MACHINE;
     if OpenKeyReadOnly(‘\Hardware\Description\System\CentralProcessor\0‘) then
     begin
      cpu := ReadString(‘ProcessorNameString‘);
      Memo1.Lines.Add(‘处理器:‘+cpu);
    end;
   end;
   Memo1.Lines.Add(‘系统版本:‘+TOSVersion.ToString);
end;