procedure TMainDlg.dOPCDAClientWriteComplete(Sender: TObject; ItemList: TdOPCItemList); begin if ItemList.Tag = 0 then lErrorInfo.Caption := 'Async write values OK' else lErrorInfo.Caption := 'Async write completed with errors' end;