dannot find implementation of method button4click？

button4的Click代码都被你删除了，当然报错，直接删除procedure   Button4Click(Sender:   TObject);就行了。