Stream to String Delphi Function

function StreamToString(Stream: TStream): string;

var

  ms: TMemoryStream;

begin

  Result := '';

  ms := TMemoryStream.Create;

  try

    ms.LoadFromStream(Stream);

    SetString(Result, PChar(ms.memory), ms.Size);

  finally

    ms.Free;

  end;

end;