Печать из Delphi

[alrom]

Подскажите пожалуйста, в чем может быть ошибка? При нажатии на кнопку вордовский документ открывается, но информация в файл не вставляется и вылетает ошибка. Ошибка:
Project 1.exe raised exception class EOLeSysError with message "Unable to retrieve a pointer to a running object registred with OLE for Word.Aplplication.9/{000209FF-0000-0000-C000-000000000046}"/ Process stopped. Use Step or Run to continue. Вот код кнопки:

procedure TFormMain.BitBtn15Click(Sender: TObject);
var pause, wnd, rt, SaveF, fmt: OleVariant;
begin
//if not TestAt then exit;
Save(DataModule1.tblAttest);
if DataModule1.tblWorker.FieldByName('FRod').AsString = DataModule1.tblWorker.FieldByName('F').AsString then
  SpeedButton5Click(nil);
CreateAnswer;
WordApplication1.Disconnect;
ShellExecute(handle, 'open', PChar(path+'\1.doc'), nil, nil, SW_SHOWNORMAL);
WordApplication1.Connect;
pause := false;
rt:= wdNotYetRouted;
fmt := wdOriginalDocumentFormat;
SaveF := wdDoNotSaveChanges;
wnd := WordApplication1.Windows;
    With WordApplication1.ActiveDocument.MailMerge do begin
        Destination := wdSendToNewDocument;
        SuppressBlankLines := True;
        With DataSource do begin
            FirstRecord := ActiveRecord;
             LastRecord := ActiveRecord;
        WordApplication1.ActiveDocument.MailMerge.Execute(pause);
        end;
    End;
    wnd:='1.doc';
    WordApplication1.Documents.Item(wnd).Activate;
    WordApplication1.ActiveDocument.Close(SaveF, fmt, rt);
end;