CoUninitialize

Функция закрывает библиотеку COM в текущем потоке, выгружает все DLL, загруженные этим потоком, освобождает любые другие ресурсы, которые поддерживает поток. Каждый вызов CoInitialize должен иметь соответствующий вызов CoUninitialize, то есть - необходимо вызвать CoInitialize до первого использования функций COM и CoUninitialize перед завершением работы скрипта.

Синтаксис
CoUninitialize

Пример вызова:

Var
    res : Variant;

Begin
    res := CoInitialize(NULL);
    try
        // Ваш код работы с СОМ объектами
    finally
       CoUninitialize;
    end;
end.