так уже пробовал делать, но с данным способом результат корректно выдаётся только при первом обращении

if not Assigned(Param) then
  Param := NewMemoryStream;