1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:

procedure TForm1.GetWMIstring (wmiHost, wmiClass, wmiProperty : string; var List: TStringList);
var Services: ISWbemServices;
var SObject:  ISWbemObject;
var ObjSet:   ISWbemObjectSet;
var SProp:    ISWbemProperty;
var Enum:     IEnumVariant;
var Value:    Cardinal;
var TempObj:  OleVariant;
var SN: string;
begin
  List.Clear;
  try
    Services :=  Locator.ConnectServer(wmiHost, 'root\cimv2', '', '', '','', 0, nil); //HIER
    ObjSet := Services.ExecQuery('SELECT * FROM '+wmiClass, 'WQL', wbemFlagReturnImmediately and wbemFlagForwardOnly , nil); //HIER
    Enum :=  (ObjSet._NewEnum) as IEnumVariant; //HIER
    while (Enum.Next(1, TempObj, Value) = S_OK) do
      begin
        SObject := IUnknown(tempObj) as ISWBemObject; //HIER
        SProp := SObject.Properties_.Item(wmiProperty, 0); //UND HIER
        if VarIsNull(SProp.Get_Value) then List.Add('')
        else
          begin
            SN := SProp.Get_Value;
            List.Add(SN);
          end;
      end;
  except 
    on exception do List.Add('');
  end;
end;                    

1:
2:
3:
4:

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  GetWMIString('','WIN32_Pocessor','Caption',StringList)
end;                    

1:
2:
3:
4:

class function CoSWbemLocator.Create: ISWbemLocator;
begin
  Result := CreateComObject(CLASS_SWbemLocator) as ISWbemLocator;
end;