Worddocument.onclose - nur einmal?

[meggles]

Hi Frank, ich mache das momentan so:

Delphi-Quellcode:

//Word starten
        WA1.Connect;
        WA1.Documents.Add(voleausgewaehlteVorlage,voleFALSE,EmptyParam, EmptyParam);
        if high(arrdokumente) = -1 then setlength(arrdokumente,1);
        setlength(arrdokumente,high(arrdokumente)+1);
        arrDokumente[high(arrdokumente)].Dokument := TWordDocument.Create(Application);
        arrDokumente[high(arrdokumente)].Dokument.ConnectTo(WA1.ActiveDocument);
        arrDokumente[high(arrdokumente)].Dokument.OnClose := [B]pWorddocumentschliessen[/B];

Auf dem Formular liegt die WA1 (TWordapplication).
Die pWorddocumentschliessen sieht so aus:

Delphi-Quellcode:

procedure TfMain.pWorddocumentSchliessen(sender: TObject);
begin
ShowMessage(WA1.ActiveDocument.Name);
end;

(O.K., nicht aufregend, aber zum Testen lasse ich mir den Dateinamen anzeigen.)
Wie gesagt, wenn das Dok erzeugt worden ist, bekommen ich beim ersten mal Klick auf Schließen die Message. Wenn ich dann auf abbrechen gehe, und wieder schließen will, nicht mehr.
Ich hoffe, Du kannst mir helfen, vielen Dank,

Simon