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: begin
    if Key=VK_Y then
    begin
      CloseWithResult(mrYes);
      Key:= 0;
      exit
    end;
  
    if Key=VK_A then
    begin
      CloseWithResult(mrYesToAll);
      Key:= 0;
      exit
    end;
  
    if Key=VK_N then
    begin
      CloseWithResult(mrNo);
      Key:= 0;
      exit
    end;
  
    if (Key=VK_ESCAPE) and (Shift=[]) then
    begin
      CloseWithResult(mrNoToAll);
      Key:= 0;
      exit
    end;
  end;
  