Pasar contenido fichero a un campo memo

[Jose Manuel]

Trabajando con Delphi6 y QuickReport 3, podrías decirme como hago para pasar el contenido de un fichero del correo electrónico guardado en un directorio con la extensión *.msg a un campo memo.

La ruta del fichero a leer, está guardado en un campo llamado docword1.text por ejemplo: docword1.text = d:\copia_correos\prueba_correo.msg

Lo que quiero es ver el contenido del fichero prueba_corre.msg y no el nombre del fichero, que es lo que me sale con está instrucción.

Gracias a todos de antemano, y un saludo

Jose Manuel García

   
Si utilizo esten ejemplo, leo el nombre del fichero, y yo quiero leer el contenido del fichero :

procedure TQR_Carpeta.QRBand1BeforePrint(Sender: TQRCustomBand;
  var PrintBand: Boolean);
begin

  QRExprMemo_email.lines.add(docword1.text);

end;