Voila un exemple de "pourquoi on aurait un constructeur protégé" :

au passage, les variables privées devraient toujours commencer par un " f "



type
TF1 = class(TObject)
private
...