Я не очень понял вопрос, т.к. не владею java. Но у меня вопрос по теме: в Delphi нельзя никак назвать объект/сущность, к которой обращаются через with? Т.е. аналогично self в функции класса, чтобы было например this.free ?
"Ты должен сделать добро из зла, потому что его больше не из чего сделать." Р.П. Уоррен