Debug Output:
onecore\com\combase\dcomrem\call.cxx(4907)\combase.dll!764974A5: (caller: 7651D948) ReturnHr(1) tid(dec) 800706BA Сервер RPC недоступен.

Process Project1.exe (9180)

  TTask.Run(
    procedure
    var w, t: OleVariant;
    begin
      try
        CoInitializeEx(nil, COINIT_MULTITHREADED);

        try
          w := GetActiveOleObject({some ole obj});
        except
          try
            w := CreateOleObject({same ole obj});

            {working with `w`}

            w.Quit;

            TThread.ForceQueue(nil, procedure begin {some OK modal message} end);
          except
            TThread.ForceQueue(nil, procedure begin {some ERROR modal message} end);
          end;
        end;
      finally
        w := Unassigned;
        CoUninitialize();
      end;
    end
  );