Making fPrincipal as TPrincipal object instead of a pointer --kazu