procedure StringToStream(const Str: string; const Stm: Classes.TStream);
var
  SS: Classes.TStringStream;  // used to copy string to stream
begin
  // Create stream onto string and copy it to given stream
  SS := Classes.TStringStream.Create(Str);
  try
    Stm.CopyFrom(SS, Length(Str));
  finally
    SS.Free;
  end;
end;
//delphi/2233