This code works:
CREATE MEMBER CURRENTCUBE.[Measures].[Percent] AS [Measures].[Sum] / ([Companies].[CompList].CurrentMember.Parent , [Measures].[Sum]),
But this one doesn't work (why? I cannot to realize... ):
CREATE MEMBER CURRENTCUBE.[Measures].[Percent] AS [Measures].[Sum] / (strtomember('[Companies].[CompList]').CurrentMember.Parent , [Measures].[Sum]),