TCategoryPanelF = class(TForm)
    CategoryPanelGroup: TCategoryPanelGroup;
    ...
    procedure CategoryPanel1Expand(Sender: TObject);
  private
    captionDblClicked: boolean;
    procedure WMNCLBUTTONDBLCLK(var Msg: TMessage); message WM_NCLBUTTONDBLCLK;
    procedure WMGETMINMAXINFO(var Msg:TWMGETMINMAXINFO); message WM_GETMINMAXINFO;    
  end;

//Уведомляет окно о двойном клике вне области пользователя
procedure TCategoryPanelF.WMNCLBUTTONDBLCLK(var Msg: TMessage);
var i:integer;
begin
  if Msg.wParam = HTCAPTION then
     captionDblClicked:= WindowState = wsNormal; //при сворачивании окна проблемы нет, Y клика выше панелей     
     if captionDblClicked then
     begin
        // 1 вариант - отлавливаем OnCollapse/OnExpand
        for i:= 0 to CategoryPanelGroup.Panels.Count-1 do
        begin
         TCustomCategoryPanel(CategoryPanelGroup.Panels.Items[i]).OnCollapse:= CategoryPanel1Expand;
         TCustomCategoryPanel(CategoryPanelGroup.Panels.Items[i]).OnExpand:=   CategoryPanel1Expand;
        end;
        inherited; // максимизация
     end;

     //inherited; // 2 вариант с модальным окном
     //if captionDblClicked then
     // ShowMessage('модально окно');
end;

//сворачиваем/разворачиваем панель при ложном срабатывании
procedure TCategoryPanelF.CategoryPanel1Expand(Sender: TObject);
var i: integer;
begin
   if captionDblClicked then
   begin
     captionDblClicked:= false;
       for i:= 0 to CategoryPanelGroup.Panels.Count-1 do
       begin
         TCustomCategoryPanel(CategoryPanelGroup.Panels.Items[i]).OnCollapse:= nil;
         TCustomCategoryPanel(CategoryPanelGroup.Panels.Items[i]).OnExpand:=   nil;
       end;
       TCategoryPanel(Sender).Collapsed:= not TCategoryPanel(Sender).Collapsed;
   end;
end;

//размер и положение окна при максимизации
procedure TCategoryPanelF.WMGetMinMaxInfo(var Msg:TWMGetMinMaxInfo);
begin
  //inherited;
  with Msg.MinMaxInfo^ do
  begin
    ptMaxPosition.x:= BoundsRect.Left; // максимальная позиция окна по оси Х после максимизации
    ptMaxPosition.y:= - GetSystemMetrics(SM_CYBORDER); //вычитаем высоту огибающей окно рамки
    ptMaxSize.x:= Width; // максимальная ширина по оси Х после максимизации
  end;
end;

procedure TCategoryPanelF.ApplicationEvents1Message(var Msg: tagMSG;
  var Handled: Boolean);
begin
   if Msg.message = WM_NCLBUTTONDBLCLK then
   begin  
    if Msg.wParam = HTCAPTION then // Return value HTCAPTION = 2
    begin
     Handled:= true; // не влияет
     if WindowState = wsNormal then
          WindowState:= wsMaximized
     else WindowState:= wsNormal;
     Handled:= true; // и так не влияет
     ApplicationEvents1.CancelDispatch; // не влияет
     captionDblClicked:= true;
    end;
   end
   else
   if captionDblClicked then
    if Msg.message = 49299 then // именно здесь происходит Expand
    begin
      Handled:= true;
      ApplicationEvents1.CancelDispatch;
      captionDblClicked:= false;
    end;
end;

TCategoryPanel = class(ExtCtrls.TCategoryPanel)
  public
    procedure Expand;
    procedure Collapse; 
  end;

procedure TCategoryPanel.Expand;
begin
  if captionDblClicked then
    captionDblClicked:= false  
  else
    Inherited;  
end;

procedure TCategoryPanelF.WMNCLBUTTONDBLCLK(var Msg: TMessage);
var i:integer;
begin
  if Msg.wParam = HTCAPTION then
    if WindowState = wsNormal then
    begin
        for i:=0 to CategoryPanelGroup.Panels.Count-1 do
          TCustomCategoryPanel(CategoryPanelGroup.Panels.Items[i]).Enabled:= False;
        Timer1.Enabled:= True;
        WindowState:= wsMaximized;
    end
    else
     WindowState:= wsNormal;
end;