Var
List : Variant;
i : Integer;
Begin
c4 := TccConfigManager.Create;
If c4.Connected = true then
Begin
c4.GetChildNodes('/clarc',false,false,List);
for i:=0 to VarArrayHighBound(List,1)do
ShowMessage ( List[i] );
End else ShowMessage (c4.Message);
c4.Free;
End;