Как говорилось в одном анекдоте - война окончена, наш концлагерь закрывается, спасибо за внимание
Вопрос решен так:
> 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);
Помогло