anchor.diff:  
   procedure TfmConfirmReplace.bYesClick(Sender: TObject);
   begin
  -  ModalResult:= mrYes;
  +  CloseWithResult(mrYes);
   end;
   
   procedure TfmConfirmReplace.bNoClick(Sender: TObject);
   begin
  -  ModalResult:= mrNo;
  +  CloseWithResult(mrNo);
   end;
   
   procedure TfmConfirmReplace.bNoAllClick(Sender: TObject);
   begin
  -  ModalResult:= mrNoToAll;
  +  CloseWithResult(mrNoToAll);
   end;
   
   procedure TfmConfirmReplace.bYesAllClick(Sender: TObject);
   begin
  -  ModalResult:= mrYesToAll;
  +  CloseWithResult(mrYesToAll);
   end;
   
   end.
  
positive.code:   end;
  end;
  
  procedure TfmConfirmReplace.FormCreate(Sender: TObject);
  begin
    MsgReplaceMatch:= 'Replace match at line %d ?';
  
negative.code:   end;
  
  var
    fmConfirmReplace: TfmConfirmReplace = nil;
  
  implementation
  
  