"Call rejected by Callee"

We are about to move many of our applications from Windows XP to Windows 7 and are faced with an old problem with Word Automation.

We had a problem in one of our applications where we could get a "Call reject by Callee" when trying to connect to Word if it was not already open. We worked on it in Delphi 2000 / Windows XP with the following code:

WordApp.Connect;
WordApp.Visible := True;
WordApp.Documents.Add(Template, EmptyParam, EmptyParam, EmptyParam);
WordApp.ChangeFileOpenDirectory(jdir);
WordApp.Visible := False;
WordDoc.ConnectTo(WordApp.ActiveDocument);

This no longer does the trick under Windows 7 - and recompiling under XE2 doesn't seem to help.

I saw a related question here that relates to Visual Studio - does anyone know how to apply this to Delphi (at this point XE2 will be fine)

Dan