Спасибо, однако вы, по-видимому, не поняли столь неточную постановку вопроса. Поясню на примере:
создаем два класса, экземпляры одного из которых будут входить в состав второго.
x = class(TButton)
Procedure OnClick(Var Msg: TMessage); message WM_LBUTTONDown;
end;
y = class
Btn: x;
S: String;
constructor create;
end;
Теперь вопрос: как из процедуры OnClick получить строку y.S без обращения напрямую к объекту? Дело в том, что объект после создания живет своей жизнью и ссылка на него нигде не хранится:) Потому и возникает подобный вопрос. От жадности. Жалко памяти на то, чтоб в каждом из экземпляров x хранить ссылку на родительский y.