anchor.diff:  procedure TInsertCustomForm.OnButtonClick(Sender: TObject);
   begin
     if Sender = btnOK then
  -    ModalResult := 1
  +    ModalResult := mrOK
     else
  -    ModalResult := 2;
  +    ModalResult := mrCancel;
   end;
   
   { TNewFormForm }
  
positive.code: procedure TEditPositionForm.OnButtonClick(Sender: TObject);
  begin
    if Sender = btnOK then
      ModalResult := 1
    else
      ModalResult := 2;
  end;
  
  { TWidgetOrderForm }
  
negative.code: begin
    if keycode = keyEscape then
    begin
      consumed    := True;
      ModalResult := mrCancel;
    end;
    inherited HandleKeyPress(keycode, shiftstate, consumed);
  end;
  