richedit内搜索字符

uses   ComCtrls; 
  
  procedure   TForm1.FindDialog1Find(Sender:   TObject); 
  var   StartPos,ToEnd,FoundAt:integer; 
          SearchFlag:   TSearchTypes; 
  begin 
        if   frMatchCase   in   FindDialog1.Options   then 
                SearchFlag:=[stMatchCase]; 
        if   frWholeWord   in   FindDialog1.Options   then 
                SearchFlag:=SearchFlag+[stWholeWord]; 
        with   RichEdit1   do 
          begin 
              StartPos:=SelStart+SelLength; 
              ToEnd:=Length(Text)-StartPos; 
              FoundAt:=FindText(FindDialog1.FindText,StartPos,ToEnd,SearchFlag); 
          if   (FoundAt<>-1)   then 
              begin 
                  SetFocus; 
                  SelStart:=FoundAt; 
                  SelLength:=Length(FindDialog1.FindText); 
              end 
              else 
                SelStart:=Length(Text); 
                PerForm(EM_SCROLLCARET,0,0); 
                ShowMessage('搜索完毕');
          end; 
  end; 
  
  procedure   TForm1.Button1Click(Sender:   TObject); 
  begin 
      FindDialog1.Execute; 
  end;