procedure TForm1.WriteValues;
var
ItemList: TdOPCItemList;
begin
ItemList := TdOPCItemList.Create(OPCServer.OPCGroups[i]); //we want to write new values to all Items of the first Groupfor i := 0 to ItemList.Count-1 do
ItemList[i].WantValue := random(100);
OPCServer.OPCGroups[i].AsyncWrite(ItemList); //write values to OPC server
ItemList.Free;
end;
procedure TForm1.OPCServerWriteError(Sender: TObject; ItemList: TdOPCItemList);
begin
ItemList.CheckOPCErrors('Write Items...',false); //show errorsend;