delphi Wmi obtener información del sistema operativo

utiliza ActiveX, ComObj; 

función GetWMIProperty (WMIProperty: string ): string ;
var 
WMI, Objs, Obj: OleVariant; 
Enumeración: IEnumVariant; 
C: Cardinal; 
comenzará 
Wmi: = CreateOleObject ( ' WbemScripting.SWbemLocator ' ); 
Objs: = Wmi.ConnectServer ( ' ' , ' root / cimv2 ' ) .ExecQuery ( ' Select * from Win32_OperatingSystem ' ); 
Enum: = IEnumVariant (IUnknown (Objs._NewEnum)); 
Enum.Reset; 
Enum.Next (1 , Obj, C); 
Obj: = Obj.Properties_.Item (WMIProperty, 0 ) .Value; 
Resultado: = Obj;
terminar ; 

procedimiento TForm1.FormCreate (Sender: TObject);
comenzará 

Memo1.Text: = GetWMIProperty ( ' Leyenda ' ) + GetWMIProperty ( ' Versión ' );
terminar ;