TCollection som fakeprop

Jeg har forgæves forsøgt at gemme en collection ved at definere min egen property, fordi den ikke skal være tilgængelig udadtil. Det går også fint når Delphi gemmer - hvis man viser formen som text ser det ud som om det er en published property. Problemet opstår når formen loades, hvor der kommer en fejl der siger \"invalid property value\". Håber der er en der kan hjælpe mig. På forhånd tak :)


TTest = class(TComponent)
private
  FMyColl: TMyCollection;
  procedure ReadColl(Reader: TReader);
  procedure WriteColl(Writer: TWriter);
protected
  procedure DefineProperties(Filer: TFiler); override;
  ...
end;

procedure TTest.ReadColl(Reader: TReader);
begin
  Reader.ReadCollection(FMyColl);
end;

procedure TTest.WriteColl(Writer: TWriter);
begin
  Writer.WriteCollection(FMyColl);
end;

procedure TTest.DefineProperties(Filer: TFiler);
begin
  inherited DefineProperties(Filer);
  Filer.DefineProperty(\'MyColl\', ReadColl, WriteColl, FMyColl.Count > 0);
end;