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