Делаю из обычной проги с COM-сервером

TApp = class(TAutoObject, IApp)...

Все хорошо, но одно надоело, когда закрывается вызывающая сервер прога, закрывается и COM-сервер, причем не важно, сохранен в нем документ или нет (в обычном режиме при закрытии прога спрашивает), кроме того, если запущенной остается клиентская прога, не возможно спокойно закрыть сервер, он выдает свой Warning. Non counting reference не помогает:

function TApp.ObjAddRef: Integer;
begin
Result := -1;
end;

function TApp.ObjRelease: Integer;
begin
Result := -1;
end;

в этом случае COM-сервер при вызове из другой проги загружается и тут же выгружается.

Я думаю, что любой, который делал самый простейший COM-сервер из обычного приложения (таких примеров полно в лит-ре), сталкивался с этими проблемами. Подскажите, пожалуйста, как хитрить?

Извините. Если никто не отвечает, значит никто не делал свой COM-сервер... или, может быть, не понятна моя проблема больше косметического плана.