anchor.diff:    private
       { private declarations }
       procedure Localize;
  +    procedure CloseWithResult(AValue: TModalResult);
     public
       { public declarations }
       MsgReplaceMatch: string;
  
positive.code:   end;
  end;
  
  procedure TfmConfirmReplace.FormCreate(Sender: TObject);
  begin
    MsgReplaceMatch:= 'Replace match at line %d ?';
  
negative.code:   end;
  
  var
    fmConfirmReplace: TfmConfirmReplace = nil;
  
  implementation
  
  