anchor.diff:    begin
       Name := 'rbBoth';
       SetPosition(20, 76, 120, 20);
  -    Checked := True;
       FontDesc := '#Label1';
       GroupIndex := 0;
  +    Hint := '';
       TabOrder := 6;
       Text := 'Both';
     end;
  
positive.code:   begin
      Name := 'Bevel2';
      SetPosition(140, 8, 16, 148);
      Shape := bsLeftLine;
    end;
  
    {@VFD_BODY_END: MainForm}
  
negative.code: procedure TMainForm.ShowLineNumbers(Sender: TObject);
  begin
    TextEdit.GutterShowLineNumbers := chkLineNumbers.Checked;
  end;
  
  procedure TMainForm.ShowRightEdge(Sender: TObject);
  begin
    TextEdit.RightEdge := chkRightEdge.Checked;
  end;
  
  procedure TMainForm.AppExceptions(Sender: TObject; E: Exception);
  