anchor.diff:  
   procedure TfpgTabSheet.SetPageControl(APageControl: TfpgPageControl);
   begin
  -   FPageControl:=APageControl;
  -   if APageControl <> nil then
  +  FPageControl := APageControl;
  +  if APageControl <> nil then
       FPageControl.InsertPage(Self);
   end;
   
  
positive.code:     function    GetActivePageIndex: integer;
      function    GetPage(AIndex: integer): TfpgTabSheet;
      function    GetPageCount: Integer;
      procedure   InsertPage(const APage: TfpgTabSheet);
      procedure   RemovePage(const APage: TfpgTabSheet);
      procedure   SetActivePageIndex(const AValue: integer);
      procedure   SetActivePage(const AValue: TfpgTabSheet);
  
negative.code:   if (AOwner <> nil) and (AOwner is TfpgPageControl) then
    begin
      FPageControl:=TfpgPageControl(AOwner);  
      FPageControl.InsertPage(self, True);
    end;
  end;
  
  