OOP Pascal Question (may be slightly off topic)