var ItemList : TdOPCItemList; begin ItemList := TdOPCItemList.Create(OPCServer.OPCGroups[i]); // we want to read values of all Items of the first Group OPCServer.OPCGroups[i].SyncRead(ItemList,false); // read values from OPC server ItemList.CheckOPCErrors('Read Items...',false); // show errors ItemList.Free; end;