var
Group: TdOPCGroup;
begin
Group := dOPCClient.OPCGroups.Add('MyGroup',true,rOnDatachange.IsChecked);
for i := 0 to 999 do// add 1000 OPC Itemsbegin// Parameter "true" means: no direct add to the OPC server subscription (add later)
Group.OPCItems.AddItem(format('ns=6;s=DataItem_%.4d',[i]), true);
end;
Group.OPCItems.OPCAddAllItems; // Now add all Items with one OPC callend;