Stream in Stream kopieren

[1aa]

Steh grad etwas aufm Schlauch:

Wenn ich mit:

Delphi-Quellcode:

procedure tTestStream.WriteStream(aStream: TStream);
 Var hSize : Int64;
begin
 aStream.Position :=0;
 hSize := aStream.Size;
 Write(hSize, Sizeof(hSize));
 CopyFrom(aStream,hSize);
end;

Daten aus einem anderem Stream in den neuen reinkopiere müsste ich diese doch mit :

Delphi-Quellcode:

function tTestStream.ReadStream: TStream;
var hSize : Integer;
begin
  Read(hSize,Sizeof(hSize));
  Result.CopyFrom(Self,hSize);
end;

auslesen können?

oder hab ich hier einen Denkfehler?

edit: tTestStream erbt von TMemoryStream