How to extend a TFieldDef in easy and safe way?

I need an advice in problem with TFieldDef. I need to add one additional string property to the TFieldDef called Description. I want to see that property when I iterate over TFieldDefs collecti开发者_如何学Pythonon. How to do this in Delphi 2007?

Thanks for your time.

Mostly, you can't. But you can re-purpose another property such as DisplayName or Tag. You could also write a class helper, but you'd have to store the data elsewhere.