function IsDCOMEnabled: Boolean;
var
 Ts: string;
 R: TRegistry;
begin
 r := TRegistry.Create;
 r.RootKey := HKEY_LOCAL_MACHINE;
 r.OpenKey('Software\Microsoft\OLE', False);
 ts := AnsiUpperCase(R.ReadString('EnableDCOM'));
 r.Free;
 Result := (Ts = 'Y');
end;

function IsDCOMInstalled: Boolean;

var

 OLE32: HModule;

begin

 Result := not (IsWin95 or IsWin95OSR2);

 if not Result then

 begin

  OLE32 := LoadLibrary(COLE32DLL);

  if OLE32 > 0 then

  try

  Result := GetProcAddress(OLE32, PChar('CoCreateInstanceEx')) <> nil;

  finally

  FreeLibrary(OLE32);

  end;

 end;

end;