Hello.
Is this a bug or.

formulas:=OPCServer.AddressSpace.AddModule(Self,RootIndex,’Formulas’);
formulasBase:=OPCServer.AddressSpace.AddModule(Self,formulas,’Minute’);
formulas10Min:=OPCServer.AddressSpace.AddModule(Self,formulas,’10_minute’);
formulas30Min:=OPCServer.AddressSpace.AddModule(Self,formulas,’30_minute’);

OPCServer.AddressSpace.AddVariable(formulasBase,TPsFloat.Create(nil),’Test1′);
OPCServer.AddressSpace.AddVariable(formulas10Min,TPsFloat.Create(nil),’Test11′);
OPCServer.AddressSpace.AddVariable(formulas30Min,TPsFloat.Create(nil),’Test111′);

OPCServer.AddressSpace.AddVariable(formulasBase,TPsFloat.Create(nil),’Test2′);
OPCServer.AddressSpace.AddVariable(formulas10Min,TPsFloat.Create(nil),’Test22′);
OPCServer.AddressSpace.AddVariable(formulas30Min,TPsFloat.Create(nil),’Test222′);

Whis will result in a tree
Testserver
Formulas
Minute
Test1
Test2
Test22
10_minute
Test11
Test222
30_minute
Test111

The Tree i expected was
Testserver
Formulas
Minute
Test1
Test2
10_minute
Test11
Test22
30_minute
Test111
Test222

I can achieve this results by changing the code.

formulas:=OPCServer.AddressSpace.AddModule(Self,RootIndex,’Formulas’);
formulasBase:=OPCServer.AddressSpace.AddModule(Self,formulas,’Minute’);
OPCServer.AddressSpace.AddVariable(formulasBase,TPsFloat.Create(nil),’Test1′);
OPCServer.AddressSpace.AddVariable(formulasBase,TPsFloat.Create(nil),’Test2′);
formulas10Min:=OPCServer.AddressSpace.AddModule(Self,formulas,’10_minute’);
OPCServer.AddressSpace.AddVariable(formulas10Min,TPsFloat.Create(nil),’Test11′);
OPCServer.AddressSpace.AddVariable(formulas10Min,TPsFloat.Create(nil),’Test22′);
formulas30Min:=OPCServer.AddressSpace.AddModule(Self,formulas,’30_minute’);
OPCServer.AddressSpace.AddVariable(formulas30Min,TPsFloat.Create(nil),’Test111′);
OPCServer.AddressSpace.AddVariable(formulas30Min,TPsFloat.Create(nil),’Test222′);

/Fjonson