example 2 for Component Pascal