CreateComObject Fehler abfangen

[EWeiss]

Ich erstelle ein Object mit
comObjType := CreateComObject(sCLSID) as IWMPEffects; Mein Problem wenn die Klasse nicht registriert ist oder gesperrt bekomme ich einen EOleSysError.
Die Message kann ich unterdrücken und wird auch nicht zur Laufzeit angezeigt da ich diese mit try.. abfange.
Das problem bleibt jedoch bestehen und ist nicht gerade eine sauberer sache.

Wie prüft ihr ob das ComObject registriert bzw.. verfügbar ist ?
CoCreateInstance bringt meinen code durcheinander.

gruss Emil