Streaming components

[clinique]

I'm using TComponent descendant to stream them as text in files.
It works great but I can't understand why embedded components (also derived from tcomponents) are not streamed.

Exemple :

TSchema is streamed like this :
object TSchema
  Classe = 'control'
  Type_ = 'basic'
end

and THeader, wich is described as
THeader = class(TComponent)
...
 field1 : integer;
 fSchema : TSchema;
...
end;

is only streamed like this :

object THeader
  field1 = 1
end

I would have awaiting something like :

object THeader
  field1 = 1
  object TSchema
     Classe = 'control'
     Type_ = 'basic'
   end
end

What am I doing wrong ?

[Marc]

Did you publish the property Schema : TSchema read+write ?