Delphi7如何实现让Tedit显示文字垂直居中(上下居中)

通过下面的组件，可以在输入文字的时候自动垂直居中 直接把下面代码保存到Unit1.pas即可------------------------------------------ ...