anchor.diff:    end;
   
     if AHandle<>0 then
  -    Panel.InitForm(ACaption, TCustomForm(AHandle), ParentPanel);
  +    Panel.InitControl(ACaption, TCustomForm(AHandle), ParentPanel);
   
     if not bExist then
     begin
  
positive.code: 
  { TAppSidePanel }
  
  procedure TAppSidePanel.InitForm(const ACaption: string; AForm: TCustomControl; AParent: TWinControl);
  begin
    ItemCaption:= ACaption;
    ItemControl:= AForm;
    ItemModule:= '';
    ItemMethod:= '';
  
    AForm.BorderStyle:= bsNone;
    AForm.Parent:= AParent;
    AForm.Align:= alClient;
  end;
  
  { TAppPanelHost }
  
negative.code:     ItemModule: string;
      ItemMethod: string;
      ItemOnShow: TNotifyEvent;
      procedure InitControl(const ACaption: string; AControl: TCustomControl;
        AParent: TWinControl);
    end;
  
  