object pascal에서의 sender와 self예제