用Delphi实现简单多文档编辑器--查找、替换时无法选定文字

Question

   我初学Delphi，做了一个简单的多文档编辑器，查找和替换时的OnFind事件总是不能选定文字，但是要查找的文字已经找到了，我找了很长时间没找出原因，请各位大侠帮帮忙吧，先谢谢了！
   我先说一下自己的思路：
1、使用MDI程序，用主窗体来创建文本；
2、设计一个子窗体，主窗体可以作为模板创建文本；
   设计一个AboutBox窗体，用来介绍编辑器信息，这个窗体只能创建一次；
3、新建子窗体时将两窗体的主菜单合并。
   我已经把源代码以资源形式上传，希望能下载看看，这样更有针对性，下载不需要积分。网址是：http://community.csdn.net/，麻烦各位了。

Answer 1

楼主给的网址不对，这分明是CSDN的论坛地址呀！
应该是http://download.csdn.net/source/1856821

Answer 2

当使用查找对话框查找之后（如果找到），点击一下子窗体，就会发现找到的已被选中了。
这就说明楼主的代码没有问题。问题出在Form2中的RichEdit的一个属性没有设置正确，即HideSelection应该设置为False，即当RichEdit失去焦点后也能够将所选择的文字以区块的形式表示出来。

Answer 3

谢谢1楼的提醒，确实把网址给弄错了，很抱歉，
2楼的修改我已经试过了，解决了我的问题，很感谢，
对于3楼提出的问题，我想说明一下，由于刚学Delphi不久，能力有限，替换对话框只是实现了先查找到，再替换，只有这一种顺序，也就是说替换前必须要查找。

Answer 4

谢谢1楼的提醒，确实把网址给弄错了，很抱歉，
2楼的修改我已经试过了，解决了我的问题，很感谢，
对于3楼提出的问题，我想说明一下，由于刚学Delphi不久，能力有限，替换对话框只是实现了先查找到，再替换，只有这一种顺序，也就是说替换前必须要查找。