Das Decorator-Pattern und seine Implementierung in Pascal