anchor.diff:    cbTabPos.Items.Add('tpNone');
     cbTabPos.FocusItem := 0;
     cbTabPos.Anchors := [anBottom, anLeft];
  +  cbTabPos.Hint := 'Tab position';
     cbTabPos.OnChange := @cbTabPosChanged;
  +
  +  CreateLabel(self, 390, 325, 'Height:');
  +  edtHeight := CreateEditInteger(self, 435, 320, 30, 24, False);
  +  edtHeight.Value := 0;
  +  edtHeight.Hint := 'Tab height';
  +  edtHeight.OnChange := @edtHeightChanged;
   end;
   
   procedure MainProc;
  
positive.code:   end;
  
  { TMainForm }
  
  procedure TMainForm.btnQuitClick(Sender: TObject);
  begin
  
negative.code:     btn2, btn3: TfpgButton;
      chkSort: TfpgCheckBox;
      cbTabPos: TfpgComboBox;
      edtHeight: TfpgEditInteger;
      procedure   edtHeightChanged(Sender: TObject);
      procedure   btnQuitClick(Sender: TObject);
      procedure   btn2Click(Sender: TObject);
      procedure   btn3Click(Sender: TObject);
  