JPEG + StringList -> Stream

[RobertP]

Moin,
ich möchte ein JPEG und eine Stringlist in eine Datei speichern. Dass ich Bild und Text später wieder trennen kann schreib ich erstmal die Länge vom datstream(enthält StringList). Dann schreib ich nacheinander beide Streams. Wenn ich das ganze nun ausführe kommt aber bei der Zeile (unten markiert) ein Stream Read Error. Was mach ich falsch?

Delphi-Quellcode:

  datstream := TMemoryStream.Create;
  gfxstream := TMemoryStream.Create;

  jpg.SaveToStream(gfxstream);
    
  list.SaveToStream(datstream);
  


  Stream := TFileStream.Create(apppath + 'test2.ekq', fmCreate);

  Len := sizeof(datstream);
  Stream.Write(Len, SizeOf(Len));


  Stream.CopyFrom(datstream, sizeof(datstream));  // <<<<<<<--------- Stream Read Error
  Stream.CopyFrom(gfxstream, sizeof(gfxstream));


  Stream.Free;
  datstream.Free;
  gfxstream.Free;