[pesi]

Код:

var
MSWord:variant;
begin
try
  MsWord := CreateOleObject('Word.Application');
  MsWord.Visible := True;
  MSWord.Documents.Open(ExtractFilePath(ParamStr(0))+'1.rtf');
  MSWord.Activate;
  MSWord.Selection.WholeStory;
  MSWord.Selection.copy;
  RichViewedit1.Paste;
  MSWord.ActiveDocument.Close;
  MSWord.Quit;
  MSWord:=UnAssigned;
except
  ShowMessage('Ошибка!');
  end;
end;