function StreamToString(const Stm: Classes.TStream): string;
var
  SS: Classes.TStringStream;  // used to copy stream to string
begin
  SS := Classes.TStringStream.Create('');
  try
    // Copy given stream to string stream and return value
    SS.CopyFrom(Stm, 0);
    Result := SS.DataString;
  finally
    SS.Free;
  end;
end;
//delphi/2232