Return a unique list of all strings enclosed within {} from a column

[freelensia]

This is a very complex problem with many moving parts. 

I have a table with column named Value like this:

Value
Hello!
This is great.
This is {adjective}.
My {person} is {adjective} now.

The final product I need is a unique table OR list of all strings found enclosed within {} from column Value:

Variable
adjective
person

{"adjective", "person"}

So far, I know that we can find the position of { and } like this:

#"Count{" = Table.AddColumn(LastStep, "Count Of {", each List.Count(Text.PositionOf([Value],"{",Occurrence.All ))),
#"Count}" = Table.AddColumn(#"Count{", "Count Of }", each List.Count(Text.PositionOf([Value],"}",Occurrence.All ))),

We can also return the matched string with Text.PositionOf([Value], "{", n) where n is the number of occurence.

Now there are 2 ways to proceed:
METHOD 1:
1. Output the matched strings to columns dynamically resized based on the max number of matches in the entire table.
2. Append those columns, remove blanks and duplicates
With this method I can do 2. I need your help with step 1 only.
METHOD 2:
1. Output the matched strings to a list in a single column.

2. Combine the lists from all rows into a big list. Remove duplicates.
I have no idea how to proceed with this method.

Can any experts help me?
@Greg_Deckler @amitchandak @parry2k @Mariusz @ImkeF 

[ImkeF · Accepted solution]

Hi @freelensia 

please paste the code into the advanced editor and follow the steps:

let
    Source = Table.FromRows(Json.Document(Binary.Decompress(Binary.FromText("i45W8kjNyclXVIrViVYKycgsVgCi9KLUxBI9FKHqxJSs1OSSzLLUWoiEb6VCdUFqUXF+Xi2avEJefjlQTSwA", BinaryEncoding.Base64), Compression.Deflate)), let _t = ((type text) meta [Serialized.Text = true]) in type table [Value = _t]),
    #"Changed Type" = Table.TransformColumnTypes(Source,{{"Value", type text}}),
    #"Added Custom" = Table.AddColumn(#"Changed Type", "Custom", each Text.Split([Value], "{")),
    #"Expanded Custom" = Table.ExpandListColumn(#"Added Custom", "Custom"),
    #"Filtered Rows" = Table.SelectRows(#"Expanded Custom", each Text.Contains([Custom], "}")),
    #"Extracted Text Before Delimiter" = Table.TransformColumns(#"Filtered Rows", {{"Custom", each Text.BeforeDelimiter(_, "}"), type text}}),
    #"Removed Other Columns" = Table.SelectColumns(#"Extracted Text Before Delimiter",{"Custom"}),
    #"Removed Duplicates" = Table.Distinct(#"Removed Other Columns")
in
    #"Removed Duplicates"

[freelensia]

@ImkeF Wow you are a genius. Yes this worked as intended. I have to study the code more to see what it does.
But so far, it accounts for multiple variables appearing in the same record, too.