А под дебаггером так и выбивает ошибку не разбирался с этим?
Приходится комментировать этот код каждый раз
Код:
initialization
CoInitialize(nil);
DesktopManager := TVirtualDesktopManager.Create;
finalization
DesktopManager.Free;
CoUninitialize;
Чтобы запустить под ним, а потом раскомментировать код, если не забудешь)