Не могу понять почему не работает

unit Unit2;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs,WbemScripting_TLB, OleServer, ActiveX, StdCtrls;
 
type
  TForm2 = class(TForm)
    Button1: TButton;
    Edit1: TEdit;
    SWbemLocator1: TSWbemLocator;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
    procedure ShowProp1(SProp: SWBemProperty);
  public
    { Public declarations }
  end;
 
var
  Form2: TForm2;
 
implementation
 
{$R *.dfm}
 
var 
Service: ISWbemServices; 
ObjectSet: ISWbemObjectSet; 
SObject: ISWbemObject; 
PropSet: ISWbemPropertySet; 
SProp: ISWbemProperty; 
var
PropEnum, Enum: IEnumVariant; 
TempObj: OleVariant; 
Value: Cardinal; 
StrValue: string;
ip:string;
procedure TForm2.Button1Click(Sender: TObject);
begin
Service:= SWbemLocator1.ConnectServer('.', 'root\CIMV2', '', '', '',
'', 0, nil);
SObject:= Service.Get('Win32_NetworkAdapterConfiguration', wbemFlagUseAmendedQualifiers, nil);
ObjectSet:= SObject.Instances_(0, nil);
Enum:= (ObjectSet._NewEnum) as IEnumVariant;
Enum.Next(1, TempObj, Value);
SObject:= IUnknown(TempObj) as SWBemObject;
PropSet := SObject.Properties_;
PropEnum := (PropSet._NewEnum) as IEnumVariant;
while (PropEnum.Next(1, TempObj, Value) = S_OK) do
begin
SProp:= IUnknown(TempObj) as SWBemProperty;
StrValue:= '';
ShowProp1(SProp);
end;
Form2.Edit1.Text:=ip;
end;
procedure TForm2.ShowProp1(SProp: SWBemProperty);
begin
if not VarIsNull(SProp.Get_Value) then
begin
with SProp do
begin
if Name = 'IPAddress' then
ip:= Get_Value; 
end; 
end; 
end;
 
end.