>>96
いえ、Aｄｄを消したいのではなくて、
function Add(MyClass: TMyClass): Integer;
のみを公開したいんです
Pointerを引数に取れるのまで公開されちゃうと
何されるかわかったもんじゃないというか、poolproofというか

まぁダメそうなので素直にHasにします