delphi - ワイド文字列を TStringStream に渡す方法はありますか?

Question

私はこのDelphi関数を持っています:

function DevuelveResumenEventos(cnnBBDD : TADOConnection;sFecha,sHora,sCtrlPac : string) : TStream;
var
   sTextoArmado : string;
   stCarga : TStringStream;
begin
   with TADOTable.Create(Application.MainForm) do
   try
      sTextoArmado := '';
      Connection := cnnBBDD;
      TableName := 'EAPC_EVENTOS';
      Filter := 'EAPC_FECHA = '+sFecha+' and EAPC_HORA = '+sHora+' and EAPC_CTRL_PAC = '+sCtrlPac;
      Filtered := True;
      Open;
      while not Eof do
      begin
         sTextoArmado := sTextoArmado + FormatDateTime('dd-mm-yyyy', FieldValues['EAPC_FECHA_EVENTO'])+
                         ' '+MinutsToStr(FieldValues['EAPC_HORA_EVENTO'])+
                         '  ('+Trim(FieldValues['EAPC_LOGIN_USER'])+
                         ') - '+FieldByName('EAPC_EVENTO').AsString+CRLF+CRLF;

         Next;
      end;

      **stCarga := TStringStream.Create(sTextoArmado);
      with TRichEdit.Create(Application.MainForm) do
      begin
         Parent := Application.MainForm;
         Text := sTextoArmado;
         Lines.SaveToStream(stCarga);
         Free;
      end;
   finally
      Close;
      Free;
   end;
   Result := stCarga;**
end;

目的は、一連の RTF 形式のテキストを取得し、それらを他のテキストと連結して、単一の TStringStream で返し、フォームの TRichEdit に表示することです。

「オンザフライのRichEditを使用する」をスキップして、結果のテキストをTStringStreamとして送信するにはどうすればよいですか?