anchor.diff:    end;
   
   var
  -  fmConfirmReplace: TfmConfirmReplace;
  +  fmConfirmReplace: TfmConfirmReplace = nil;
   
   implementation
   
  
positive.code: 
  procedure TfmConfirmReplace.bYesClick(Sender: TObject);
  begin
    ModalResult:= mrYes;
  end;
  
  procedure TfmConfirmReplace.bNoClick(Sender: TObject);
  begin
    ModalResult:= mrNo;
  end;
  
  procedure TfmConfirmReplace.bNoAllClick(Sender: TObject);
  begin
    ModalResult:= mrNoToAll;
  end;
  
  procedure TfmConfirmReplace.bYesAllClick(Sender: TObject);
  begin
    ModalResult:= mrYesToAll;
  end;
  
  end.
  
negative.code:   private
      { private declarations }
      procedure Localize;
      procedure CloseWithResult(AValue: TModalResult);
    public
      { public declarations }
      MsgReplaceMatch: string;
  