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