procedure TForm2.OnMonitoredItemChanged(
  ASender: TObject;
  sender: OleVariant;
  const eventArgs: _EasyUAMonitoredItemChangedEventArgs);
var test : variant;
s,s1:String;
x,x1 : integer;
i1:longint;
begin
    inc(zaehler);
    s := formatdatetime('hh.mm.ss.zzz',now)+'  :  '+eventArgs.Arguments.NodeDescriptor.ToString;
    x := pos('Float',s)+5;
    s1 := copy(s,x,length(s)-x+1);
    x := StrToInt(s1);
    inc(anz[x],1);
    if (eventArgs.AttributeData = nil)  then
        inh[x] := inh[x] + ';'+ 'NA'
    else
    begin
        s1 :=copy(eventArgs.AttributeData.ToString,1,pos('{',
       eventArgs.AttributeData.ToString)-2);
        try
          i1 := StrToInt(s1);
        except
          i1 := -1;
        end;
        if checkbox1.checked  then
        begin
          if not( (last[x] = -1) or (last[x] = i1+1)) then
          begin
             inh[x]:=inh[x]+';'+IntToStr(last[x])+'-'+IntToStr(i1);
          end;
        end
        else
        begin
          if not( (last[x] = -1) or (last[x] = i1-1)) then
          begin
             inh[x]:=inh[x]+';'+IntToStr(last[x])+'-'+IntToStr(i1);
          end;
        end;
        last[x] := i1;
    end;
    if  copy(s,length(s)-5,6)='Float1'  then
    begin
      t2:= now-t1;
      edit1.text := formatdatetime('hh.nn.ss.zzz',t2);
      try
       if (eventArgs.AttributeData <> nil)  then
          Edit2.Text := eventArgs.AttributeData.ToString;
      finally
      end;
      t1:=Now;
    end;

Client := TEasyUAClient.Create(nil);
  Client.OnMonitoredItemChanged := OnMonitoredItemChanged;
  for i := 1 to 1000 do
  begin
  Client.SubscribeMonitoredItem(
    server,
    varname+inttostr(i),
    StrToInt(Edit12.Text));
    last[i] := -1;
  end;

Client.OnMonitoredItemChanged := OnMonitoredItemChanged;
  MonitoringParameters := CoUAMonitoringParameters.Create;
  MonitoringParameters.SamplingInterval := StrToInt(Edit12.Text);
  for i := 0 to 999 do
  begin
    MonitoredItemArguments[i] := CoEasyUAMonitoredItemArguments.Create;
    MonitoredItemArguments[i].EndpointDescriptor.UrlString := server;
    MonitoredItemArguments[i].NodeDescriptor.NodeId.ExpandedText := varname+IntToStr(i+1);
    MonitoredItemArguments[i].MonitoringParameters := MonitoringParameters;
    Arguments[i] := MonitoredItemArguments[i];
    last[i] := -1;
  end;
  TVarData(HandleArray).VType := varArray or varVariant;
  TVarData(HandleArray).VArray := PVarArray(
    Client.SubscribeMultipleMonitoredItems(PSafeArray(TVarData(Arguments).VArray)));
  for I := VarArrayLowBound(HandleArray, 1) to VarArrayHighBound(HandleArray, 1) do
  begin
      Handle := Cardinal(HandleArray[I]);
  end;