一个写字版的问题

一个写字版的问题 Delphi / Windows SDK/API
http://www.delphi2007.net/DelphiMultimedia/html/delphi_2006121410563659.html
我用DELPHI做了一个写字版，在用到查找替换功能的时候，不能全部替换，只能查找一个替换掉一个，否则就增加。  
  问，怎么解决

使用TReplaceDialog控件，在OnReplace里写  
  if   frReplaceAll   in   ReplaceDialog.Options   then   //全部替换  
   
  替换代码要你自己写，可以用StringReplace函数

老之   升星     散分了..

up

多少分是   3   星呵呵