Bhè se non ti spaventano approcci diciamo così eterodossi puoi banalmente dichiarare un tipo derivato dalla classe che vuoi, nello stesso file PAS, et voilà puoi accedere ai protected

type tqualcosa = class(tquellocuivuoiaccedere);

variabile: tquellocuivuoiaccedere;
...

tqualcosa(variabile).ENTRIAMODENTRO:=...