procedure TForm1.Button1Click(Sender: TObject);
var COM_Word: variant;
begin
try
COM_Word := CreateOLEObject('Word.Application');
COM_Word.Visible := False;
COM_Word.Documents.Open('C:\1.doc');
Com_Word.ActiveDocument.Select;
COM_Word.Selection.Copy;
RichEdit1.PasteFromClipboard;
COM_Word.DisplayAlerts := False;
COM_Word.Quit;
finally
COM_Word := UnAssigned;
end;
end;

Закрыть WORD:

procedure Word.Quit;
begin
COM_Word.Quit;
end;

Закрыть документ WORD:

procedure Word.Close;
begin
COM_Word.Documents.Close;
end;

Сохранить активный документ:

procedure Word.Save(Name:string);
begin
COM_Word.ActiveDocument.SaveAs(FileName:=Name);
end;

Отправка активного документа на печать:

procedure Word.Print;
begin
COM_Word.ActiveDocument.Print;
end;