function GetOPCUAClient(DaClient: TdOPCDAClient): TdOPCUAClient;
var
Connection: TObject;
beginif DaClient.OPCConnection <> nilthenbegin
Connection := DaClient.OPCConnection.GetObject; // ticky: get underlying connection objectif (Connection <> nil) and (Connection is TdOPCUAConnection) then
result := TdOPCUAConnection(Connection).uaClient
elseraise Exception.Create('connection is not a opc ua server connection');
endelseraise Exception.Create('first connect to opc ua server');
end;