anchor.diff:    cbTabPos := CreateComboBox(self, 300, 320, 80, nil);
     cbTabPos.Items.Add('tpTop');
     cbTabPos.Items.Add('tpBottom');
  +  cbTabPos.Items.Add('tpLeft');
  +  cbTabPos.Items.Add('tpRight');
     cbTabPos.Items.Add('tpNone');
     cbTabPos.FocusItem := 0;
     cbTabPos.Anchors := [anBottom, anLeft];
  
positive.code:     pcMain.TabPosition := tpTop
    else if cbTabPos.FocusItem = 1 then
      pcMain.TabPosition := tpBottom
    else
      pcMain.TabPosition := tpNone;
  end;
  
negative.code:   pcMain.Width    := Width - 20;
    pcMain.Height   := 300;
    pcMain.Anchors  := [anLeft, anTop, anRight, anBottom];
  //  pcMain.FixedTabWidth:=150;
  
    // Tab One
    tsOne := TfpgTabSheet.Create(pcMain);
  