Экспорт содержимого RichEdit в MS Word

procedure TForm3.Button1Click(Sender: TObject);
var
Template, s: OleVariant;
begin
Template:=ExtractFilePath(Application.EXEName)+'Отчет.dot';
WordApplication1.Connect;
WordApplication1.Documents.Add(Template,EmptyParam,EmptyParam,EmptyParam);
WordDocument1.ConnectTo(WordApplication1.ActiveDocument);
WordApplication1.Options.CheckSpellingAsYouType:=False;
WordApplication1.Options.CheckGrammarAsYouType:=False;
WordDocument1.ActiveWindow.Caption:='Отчет';
s:='Имя';
WordApplication1.ActiveDocument.Bookmarks.Item(s).Range.Text:=edit1.Text;
s:='Фамилия';
WordApplication1.ActiveDocument.Bookmarks.Item(s).Range.Text:=edit2.Text;
s:='Отчество';
WordApplication1.ActiveDocument.Bookmarks.Item(s).Range.Text:=edit3.Text;
s:='Название организации';
WordApplication1.ActiveDocument.Bookmarks.Item(s).Range.Text:=edit4.Text;
s:='ААА';
WordApplication1.ActiveDocument.Bookmarks.Item(s).Range.Text:=Form1.RichEdit1.Text;
WordApplication1.Visible:=true;
WordApplication1.Disconnect;
end;

//...
With RichEdit1 do
begin
PlainText :=False;
Lines.SaveToFile('c:\имя_файла.rtf');
end;
//...

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ComCtrls;
 
type
  TForm1 = class(TForm)
    RichEdit1: TRichEdit;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
var
  Form1: TForm1;
implementation
uses ComObj;
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
var WordApp, WordDoc: Variant;
begin
  try
    WordApp := CreateOleObject('Word.Application');
    WordApp.Visible := false;
    WordDoc := WordApp.Documents.Add;
    WordApp.Selection.TypeText(RichEdit1.Text);
    WordDoc.Close;
  finally
    WordApp := Unassigned;
    WordDoc := Unassigned;
  end;
end;
end.

procedure TForm3.Button1Click(Sender: TObject);
var
  WordApp, s1, s2, s3, s4: OleVariant;
begin
  WordApp:=CreateOLEObject('Word.Application');
  WordApp.Documents.Add();
  s1:='Имя:';
  WordApp.Selection.TypeText(s1);
  WordApp.Selection.TypeText(Edit1.Text);
  s2:='Фамилия:';
  WordApp.Selection.TypeText(s2);
  WordApp.Selection.TypeText(Edit2.Text);
  s3:='Отчество:';
  WordApp.Selection.TypeText(s3);
  WordApp.Selection.TypeText(Edit3.Text);
  s4:='Название организации:';
  WordApp.Selection.TypeText(s4);
  WordApp.Selection.TypeText(Edit4.Text);
  WordApp.Selection.TypeText(Form1.RichEdit1.Text);
  WordApp.Visible:=true;
  WordApp.ActiveWindow.Caption:='Отчёт';
end;