{добавлено в раздел interface - остальной код в первом посте}
interface

uses ...
 
type

  TPanel =class(ExtCtrls.TPanel)
  private
    procedure CMRelease(var Message: TMessage); message CM_RELEASE;
  end;

  TForm1 = class(TForm) ...

implementation
...

{$R *.dfm}

procedure TForm1.MyBtnMinusClick(Sender: TObject);
begin
No:= TButton(Sender).Tag - 1;
if No > Low(MyBtnMinus)//если сендер - кнопка не из первой панели (MyPnl[0])
  then
    begin//фокус на собратьев любой из массива панелей MyPnl
      MyBtnPlus[No-1].Enabled:= True;
      MyBtnMinus[No-1].Enabled:= True;
      MyBtnMinus[No-1].SetFocus;
    end
  else//иначе выше лежит "постоянная" панель, созданный в OnCreate формы
    begin
      BtnPlus.Enabled:= True;
      BtnPlus.SetFocus;//фокус на "постоянную" кнопку
    end;

Form1.Height:= Form1.Height - MyPnl[No].Height;//уменьшаем высоту формы
Form1.Refresh;//перерисовываем форму

//уничтожаем сендер "чужими" руками
PostMessage(TButton(Sender).Parent.Handle,CM_RELEASE,0,0);
end;

procedure TPanel.CMRelease(var Message: TMessage);
begin
Free;
end;

procedure TControl.WMLButtonUp(var Message: TWMLButtonUp);
begin
  inherited;
  if csCaptureMouse in ControlStyle then MouseCapture := False;
  if csClicked in ControlState then
  begin
    Exclude(FControlState, csClicked);
    if PtInRect(ClientRect, SmallPointToPoint(Message.Pos)) then Click;
  end;
  DoMouseUp(Message, mbLeft);
end;

procedure TControl.Click;
begin
  { Call OnClick if assigned and not equal to associated action's OnExecute.
    If associated action's OnExecute assigned then call it, otherwise, call
    OnClick. }
  if Assigned(FOnClick) and (Action <> nil) and (@FOnClick <> @Action.OnExecute) then
    FOnClick(Self)
  else if not (csDesigning in ComponentState) and (ActionLink <> nil) then
    ActionLink.Execute(Self)
  else if Assigned(FOnClick) then
    FOnClick(Self);
end;

DoMouseUp(Message, mbLeft);

self.DoMouseUp(Message, mbLeft);

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls;

type
  TPanel =class(ExtCtrls.TPanel)
  private
    procedure CMRelease(var Message: TMessage); message CM_RELEASE;
  end;

  TForm1 = class(TForm)
    Panel1: TPanel;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
  PostMessage(TButton(Sender).Parent.Handle,CM_RELEASE,0,0);
end;

{ TPanel }

procedure TPanel.CMRelease(var Message: TMessage);
begin
  Free;
end;

end.