Nja, man könnte mal nachsehn, was der Setter im AsStream genau macht.
"Ich" würde ja garnicht den Stream direkt übernehmen, sondern im Setter nur den Inhalt des Streams kopieren.
Ansonsten gäbe es auch noch CopyFrom
Delphi-Quellcode:
iFStreeam.Position := 0; // bei TMemoryStream oder wo es nicht vorne steht
QWrite.Params[1].AsStream.Clear; // entsprechend dem QWrite.Params[1].AsStream.Position:=0; , aber auch inkl. .AsStream.Size, falls schon (längere) Daten drin waren
QWrite.Params[1].AsStream.CopyFrom(iFStreeam);