Cargar un archivo de Word (.doc) en un RTF.
 

Bueno para hacer esto, primero necesitamos agregar la biblioteca ComObj, en la clausula uses de nuestra unit.

Código Delphi [-]
procedure CargaDOCaRichEdit;
Var   WordApp:Variant;
begin
  if OpenDialog1.Execute then
  Begin
    WordApp := CreateOleObject('Word.Basic');

    If not VarIsEmpty(WordApp) then
    Begin
      WordApp.FileOpen(OpenDialog1.FileName);
      WordApp.FileSaveAs(Name := 'c:\temp_bb.rtf', Format:=6);
      WordApp.AppClose;
      WordApp:=Unassigned;
      WordEditor.Lines.LoadFromFile('c:\temp_bb.rtf');
     End
     Else
       ShowMessage('No puedo iniciar MS Word');
End;

WordEditor es un TRichEdit.

bueno...

ADIOS