Определить, зарегистрирован ли класс OCX в Windows

Мне нужно знать, как определить, зарегистрирован ли класс OCX (ClassID) в Windows

, например,

function IsClassRegistered(ClassID:string):boolean;
begin
//the magic goes here
end;

begin
  if IsClassRegistered('{26313B07-4199-450B-8342-305BCB7C217F}') then
  // do the work
end;