设计时双击按钮出现的错误框--有点奇怪的现状

cannot find implementation of method btnPhone2Click实际上该过程是存在的，运行也没抱错，就是在设计时有时候就是
为了修改方便，直接双击界面上的按钮然后进入其单击事件btnPhone2Click中
修改代码，但是发现在修改该窗体上的所有按钮的单击事件
都会弹出上面的错误，甚至连双击窗体也出现这样的错误。
但所有事件都能顺利执行，是这两天才出现的现状
---外加个快捷键的问题，，在窗体里定义了过程或函数后，
怎么按快捷键让delphi 在implementation中自动加上实现代码