Automation object si Delphi 6

Hej

Er der en der kan give mig et eksempel på et automation object hvori en property returnerer et andet automation object - defineret i samme typelib?

Mit behov er reelt set at lade en property i mit automation object returnere en record - problemet er, at i VBS bliver recorden til en ikke-understøttet userdefined datatype (VARTYPE 36) - og så dutter det ikke.

I stedet har så jeg tænkt mig at returnere et andet "sub" object som så blot "fødes" med data fra det oprindelige objekt således at min struktur kan være a la denne

mainobject (
  method parsefile()
  property get ShowData : subobject
)

subobject (
  property get characterset : variant
  property get identifier : integer
  property get editdate : variant
)

Mit automation object er i øvrigt en parser til et tekstbaseret dataudvekslningsformat kaldet GEDCOM - hvisb det skulle have interesse.