Clear COM reference with quit from application using Delphi

uses
ComServ;

type
_TComServerHack = class(TComServer)
end;

while (_TComServerHack (ComServer)).ObjectCount > 0 do
_TComServerHack (ComServer).CountObject(False);
CanClose := True;