Tmemorystream vs Object factory - Access violation

[Sequitar]

Hallo, ich habe heute (eigentlich schon länger, aber mir ist der Zusammenhang mit (Objekten) der Klasse Tmemorystream erst heute aufgefallen) folgendes Problem:

Ich versuche mithilfe einer - bisher problemlos laufenden - Factory eine bestimmte generische Klasse "Tmyclass<tmemorystream>", ggf "Tmyclass<tstream>" zu erstellen. Die Variante mit "<tmemorystream>" wurde vorher ordnungsgemäß (innerhalb meiner tfactory) registriert, und wird gefunden.

Also, zum problem:
Der ablauf ist bisher folgender:
try
- erstellung tmemorystream
- befüllen obj:tmemstream..
- Versuch erstellung Tmyclass, die dann was mit obj machen sollte. //XXX
{..}
finally
- freeall..
end

An der Stelle /XXX knallt es jetzt jedes Mal bei der Erstellung des Objektes (Es sei hier angemerkt dass der Fehler sowohl als Tmyclass.create, als auch per Tfactory.makenewobject(tmyclass)auftritt). Im Speziellen bekomme ich eine EAccesviolation (read of address ...).

Heute habe ich dann - endlich - das Problem auf die Erstellng / Befüllung des memory-streams zurückführen können.
Alles, was danach kommt löst direkt eine EAccessviolation aus.

ZUM EIGENTLICHEN PROBLEMBEREICH

Eigentlich will ich doch nur (nachvollziehbare) in den stream sschreiben. Aber anscheinend schreibt der dabei an Stellen, wo er nicht dürfte:

Delphi-Quellcode:

 Str := Tmemorystream.Create; //  Str, Comp, Todecomp: Tmemorystream;
    For J := 0 To 2 Do
      For I In ['A' .. 'C'] Do
        Str.WriteBuffer(I, Charsize);
    For K In ['D' .. 'F'] Do
      Str.WriteBuffer(K, Charsize);
    For I In ['A' .. 'C'] Do
      Str.WriteBuffer(I, Charsize);
    For I In ['A' .. 'E'] Do
      Str.WriteBuffer(I, Charsize);
    // For Var I: Char In ['A' .. 'C'] Do
    // Str.Writebuffer(I, Charsize);
    Str.Position := 0;
    Index := 0;
    While Str.Position <> Str.Size Do
    Begin
      Str.ReadBuffer(Cc, Charsize);
      Oughtstreamcontent[Index] := Cc; //  Oughtstreamcontent: Array [0 .. 14] Of Char;
      Inc(Index);
    End;

Alle Variablen sind lokal definiert.

Bitte um Hlfe, was ist hier der Fall?

//ES LIEGT MMN DEFINITIV AN DER BEFÜLLUNG DES ARRAYS
  Oughtstreamcontent[Index] := Cc; Danke