prüfen ob MSXML4 installiert ist

[wk_one]

Hallo,
ich habe ein kleines Programm das msxml4 verwendet. Bevor das Programm startet wird mit einer Funktion abgefragt ob msxml4 installiert ist.
Die Funktion hatte ich aus diesem Forum:

Delphi-Quellcode:

function msxml4Exists():boolean;
var
  reg :TRegistry;
  s   :String;
begin
  reg:= TRegistry.Create(KEY_READ);
  if (reg<>nil)then
  begin
    with reg do try
      RootKey := HKEY_CLASSES_ROOT;
      if (OpenKey('CLSID\'+ GUIDToString(CLASS_DOMDocument40) +'\InProcServer32',false)) then
      try
        s:=ReadString('');
        Result :=(s<>'') and (FileExists(s));
      finally
        CloseKey;
      end;
    finally
      Free;
    end;
  end;
end;

Das funktioniert auf Win2000 ganz gut. Wenn das aber unter WinXP läuft dann erhalte ich immer ein false, ob msxml installiert ist oder nicht.
Kann mir jemand weiterhelfen?
Danke