Вот часть примеров которые я знаю. AnObject.AColor := AValue AVariable := AnObject.AColor; TAnObject = class(TObject) TPropObject = class(TObject)