IStream c'est facile à gérer
TStreamAdapter est un IStream, il se libère tout seul via le compteur de référence


var
Stream: TMemoryStream;
begin
...
// On crée un flux
Stream :=...