OLE-Steuerung von Word: DoEvents

[ts-d]

Hallo,

ich muss Word steuern und im Zeit geben, seine Befehle abzuarbeiten, bevor es den nächsten Befehl bekommt.
Darum wollte ich DoEvents aus Delphi2010 zwischendurch aufrufen.

var
WordObj: variant;

...

WordObj := UnAssigned;

try
WordObj := GetActiveOLEObject('Word.Application');
except
WordObj := CreateOleObject('Word.Application');
end;
WordObj.Visible := False;
WordObj.Documents.Add;

...

WordObj.DoEvents;


Delphi meldet dann: "Im Projekt ... ist eine Exception der Klasse EOleError mit der Meldung 'Die Methode 'DoEvents' wird vom Automatisierungsobjekt nicht unterstützt' aufgetreten."



Delphi meldet jedeoch