program dOPUACTest; uses variants, ua.client, ua.buildintypes; var OPCClient: TdOPCUAClient; Results: TArray<uaDataValue>; begin OPCClient := TdOPCUAClient.Create(nil); OPCClient.Url := 'opc.tcp://opcuaserver.com:48010'; OPCClient.Active := true; Results := OPCClient.ReadNodeAttributes(['i=2259', 'i=2263'],[TuaAttributes.DisplayName, TuaAttributes.Value]); Writeln(Results[0].ValueToVariant+' has value: '+VarToStr(Results[1].ValueToVariant)); Writeln(Results[2].ValueToVariant+' has value: '+VarToStr(Results[3].ValueToVariant)); Writeln('Press Enter to exit'); Readln; OPCClient.Free; end.