anchor.diff:  procedure TmEditingForm.SetReadOnly;
   begin
     FOkBtn.Visible:= false;
  +end;
  +
  +procedure TmEditingForm.ShowOkToAllButton;
  +begin
  +  FOkToAllBtn.Visible:= true;
  +  FOkToAllBtn.Left:= FCancelBtn.Left - FOkToAllBtn.Width - ScaleForMagnification(10, true);
  +  FOkBtn.Left:= FOkToAllBtn.Left - FOkBtn.Width - ScaleForMagnification(10, true);
   end;
   
   { TmEditingPanel }
  
positive.code:     FBottomPanel: TPanel;
      FCancelBtn: TBitBtn;
      FOkBtn: TBitBtn;
      procedure FormShow(Sender: TObject);
      procedure OkBtnClick(Sender: TObject);
    public
      constructor CreateNew(AOwner: TComponent; Num: Integer = 0); override;
      procedure SetReadOnly;
    public
      property EditingPanel: TmEditingPanel read FEditingPanel;
    end;
  
  
  
negative.code:   end;
  end;
  
  procedure TmEditingForm.OkToAllBtnClick(Sender: TObject);
  var
    missingValues: string;
  begin
    if FOkToAllBtn.Focused then
    begin
      if not FEditingPanel.CheckMandatoryLines(missingValues) then
      begin
        MessageDlg(SMissingValuesTitle, SMissingValuesWarning + sLineBreak + missingValues , mtInformation, [mbOK],0);
        exit;
      end;
  
      FEditingPanel.CommitChanges;
  
      if Assigned(FOkToAllBtnOnClick) then
        FOkToAllBtnOnClick(Sender);
  
      ModalResult := mrOk;
    end;
  end;
  
  constructor TmEditingForm.CreateNew(AOwner: TComponent; Num: Integer = 0);
  begin
    inherited CreateNew(AOwner, Num);
  