procedure TTestForm.Button1Click(Sender: TObject);
var
UAClient : TdOPCUAClient;
begin
UAClient := TdOPCUAClient.Create(nil);
UAClient.Url := 'opc.tcp://opcua.demo-this.com:51210/UA/SampleServer';
UAClient.Active := true;
if UAClient.GetNamespaceIndex('http://opcfoundation.org/UA/') <> 0 then
Memo1.Lines.Add('ERROR: Namespace must exists on an OPC UA server');
UAClient.Free;
Memo1.Lines.Add('ready :-)');
end;