Exemplo que acompanha o artigo sobre RTTI na revista Active Delphi