wanted a code that returns in string in Label1.caption the objects that Shapes ("a") is feel

wanted a code that returns in EQL string in Label1.caption the objects that the Shapes ("a") is touching (separated by ",")

example of how Label1.caption will get:

"a":"blocka, blockb"; // "a" is touching blocka and blockb