MSXML im Dienst

[Mr_G]

Hallo zusammen,
ich habe (wie schon in einem Thread von im erwähnt) das Problem, das nach beenden meines Dienstes ein "Problembericht senden"-Fenster auftaucht. Ich habe MSXML als übeltäter entlarvt, weiß aber nicht warum es da nun Probleme gibt. Hier mal der Code:

Delphi-Quellcode:

CoInitializeEx(nil, COINIT_APARTMENTTHREADED);
XMLSchedule := CoDOMDocument40.Create;
XMLSchedule.setProperty('NewParser', true);
if not XMLSchedule.load(FILE_SCHEDULE) then
  XMLSchedule.loadXML('<?xml version="1.0" ?><timetable version="0.2" />');

if XMLSchedule.parseError.errorCode <> 0 then
  ExecError := $3E80
else if XMLSchedule.documentElement.nodeName <> 'timetable' then
  ExecError := $3E81
else
  begin
    ScheduleVersion := XMLSchedule.documentElement.attributes.
      getNamedItem('version').text;
    if ScheduleVersion > '0.2' then
      ExecError := $3E82;
  end;

Dieser Code wird beim Initialisieren des Dienstes ohne Fehler ausgeführt. Beim Beenden wird dann noch CoUninitialize aufgerufen. Ich habe sämtliche Bearbeitung (die problemlos funktioniert) testweise auskommentiert um Fehler dort auszuschließen.
Woran könnte das liegen (evtl. etwas in Bezug auf COM)?