Stream in Stream kopieren

[1aa]

So etwas frischer heute...

und Problem gelöst... man sollte nicht Tstream also constructor nutzen sondern zB. TMemoryStream...
und schon geht es^^

Delphi-Quellcode:

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

Danke noch mal für die hilfe