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