Интересно… Вы используете эксепшены в первом случае:
try
a.Foo;
except
//do Something
end

но не используете во втором:
p.Foo; // exception;
p.free;

На мой взгляд — плохой пример, который, кстати, без отработки эксепшенов работать не будет.