program dOPUACTest; uses ua.client; var OPCClient: TdOPCUAClient; Displayname : string; begin OPCClient := TdOPCUAClient.Create(nil); OPCClient.Url := 'opc.tcp://opcuaserver.com:48010'; OPCClient.Active := true; Displayname := OPCClient.ReadNodeAttributeAsVariant('i=2259', TuaAttributes.DisplayName); Writeln(Displayname); Writeln('Press Enter to exit'); Readln; OPCClient.Free; end.