program MethodsCall;
{$APPTYPE CONSOLE}
usesua.client;
var
OPCClient : TdOPCUAClient;
Methods : TArray<string>;
M : string;
begin
OPCClient := TdOPCUAClient.Create(nil);
OPCClient.Url := 'opc.tcp://opcuaserver.com:48010';
OPCClient.Active := true;
Methods := OPCClient.MethodsGet('ns=2;s=Demo.Method');
for M in Methods do writeln(M);
writeln('Press Enter to exit');
Readln;
OPCClient.Free;
end.