title: Convert TStream to String?
body: <p>In Delphi 10.4, I try to convert a <code>TStream</code> to a <code>string</code> with this code:</p>
  <pre><code>function MyStreamToString(aStream: TStream): string;
  var
    SS: TStringStream;
  begin
    if aStream &lt;&gt; nil then
    begin
      SS := TStringStream.Create('');
      try
        SS.CopyFrom(aStream, 0); // Exception: TStream.Seek not implemented
        Result := SS.DataString;
      finally
        SS.Free;
      end;
    end else
    begin
      Result := '';
    end;
  end;
  </code></pre>
  <p>But in this code line, I get an exception &quot;TStream.Seek not implemented&quot;: <code>SS.CopyFrom(aStream, 0);</code></p>
  <p>Why? How can I &quot;heal&quot; this code?</p>