[YCH.Del]

Как говорилось в одном анекдоте - война окончена, наш концлагерь закрывается, спасибо за внимание

Вопрос решен так:

> var St: TMemoryStream;
C: TChart;
> ....
> St.Seek(0,2); St.Seek(0,0);
> R := TReader.Create(St, 4096);

Вот вместо вот этого

> CH := R.ReadRootComponent(nil) as TChart;
> CH.Parent := Self;
> InsertComponent(CH);

написал так:
C := R.ReadRootComponent(nil) as TChart;
CH.Assign( C );
FreeAndNil( C );

> FreeAndNil(R);

Помогло