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:
31:
32:
33:
34:
35:
36:
37:

function GetWMIstring (wmiHost, wmiClass, wmiProperty : string):TStringList;
var Locator:  ISWbemLocator;
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
  result := TStringList.Create;
  try
    Locator := CoSWbemLocator.Create;
    Services :=  Locator.ConnectServer(wmiHost, 'root\cimv2', '', '', '','', 0, nil);
    ObjSet := Services.ExecQuery('SELECT * FROM '+wmiClass, 'WQL', wbemFlagReturnImmediately and wbemFlagForwardOnly , nil);
    Enum :=  (ObjSet._NewEnum) as IEnumVariant;
    while (Enum.Next(1, TempObj, Value) = S_OK) do
      begin
        SObject := IUnknown(tempObj) as ISWBemObject;
        SProp := SObject.Properties_.Item(wmiProperty, 0);
        if VarIsNull(SProp.Get_Value) then result.Add('')
        else
          begin
            SN := SProp.Get_Value;
            result.Add(SN);
          end;
      end;
  except // Trap any exceptions (Not having WMI installed will cause one!)
    on exception do result.Add('');
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  Button1.Caption := GetWMIstring('','Win32_PerfFormattedData_PerfDisk_PhysicalDisk','')[0];
end;