Lo ultimo que he probado pero no soy capaz de hacerlo compilar es esto:
http://pastebin.com/4Pd9DYEr
El problema lo tenemos en la funcion miembra de TInt que no soy capaz de asignar el valor de entrada a la direccion donde apunta el puntero ni tampoco mostrar su valor.