type
TInternalProc = procedure of object;


dans le cas ou tu appel une procedure contenue par un objet.

Si tu as D2009 ou mieux, une entourloupe et le tour est joué :


type