TReplaceDialog

procedure TMyForm.Button1Click(Sender: TObject);
    begin
      ReplaceDialog1.Execute();
    end;
    
    procedure TMyForm.ReplaceDialog1Replace(Sender: TObject);
    var
      k: integer;
    begin
      with Sender as TReplaceDialog do begin
        opt := []; 
        if frReplace in Options then
          opt := [ssoReplace]; 
        if frReplaceAll in Options then
          opt := [ssoReplaceAll]; 
        k := TSynEdit1.SearchReplaceEx( FindText, ReplaceText, opt, Position );
        if k>=0 then
          TSynEdit1.SetFocus()
        else
          Beep();
      end;
    end;