Habe underdessen herausgefunden, wo der Fehler entsteht. Und zwar bei OleCommandTarget.Exec(...)
Wenn ich den EncodingSubMenu durch POleVariant(nil)^) ersetze, kommt der Fehler nicht mehr.
Wie kann ich aber EncodingSubMenu richtig als Parameter einsetzen?
Delphi-Quellcode:
if SUCCEEDED(OleCommandTarget.Exec(@CGID_ShellDocView,
CGetMimeSubMenuCommandID,
OLECMDEXECOPT_DODEFAULT, null, POleVariant(nil)^)) then