[Kailon]

А у меня проще

Код:

procedure TForm1.OpenWordClick(Sender: TObject);
var
  NameWordDoc: OleVariant;
begin
  if SaveDialog.Execute then
    NameWordDoc := SaveDialog.FileName + '.doc';
  if NameWordDoc <> '' then
    begin
      WordApp.Connect;
      WordApp.Documents.Add(EmptyParam, EmptyParam, EmptyParam, EmptyParam);
      WordDoc.ConnectTo(WordApp.ActiveDocument);
      WordDoc.SaveAs(NameWordDoc);
      WordApp.Visible := True;
      WordApp.Disconnect;
    end;
end;

P.S.: компоненты WordApp (WordApplication), WordDoc (WordDocument) с закладки Servers