Удалить кнопку из ее же обработчика OnClick

type
   TTest = record    
    check:TCheckBox;
    btnDel:TButton;
    end;

SetLength(Tst,1);
with Tst[0] do
begin
    check:=TCheckBox.Create(ListBox2); //чекбокс кидаю на листбокс2
    with check do
    begin
    Color:=Alphas[n].Color;
    Checked:=true;
    OnClick:=Check_ChanelVisibleClick;
    Width:=13;
    Height:=13;
    Parent:=ListBox2;
    end;
 
    btnDel:=TButton.Create(ListBox2); 
    with btnDel do
    begin
    Caption:='x';
    Hint:='Удалить';
    ShowHint:=True;
    Width:=16;
    Height:=16;
    Font.Style:=[fsBold];
    OnClick:=Button_alphasDelClick;
    Parent:=ListBox2;
    Tag:=n; //по тегу определим номер в массиве
    end;

tst[0].btnDel.Free; //удаляем кнопку
tst[0].check.Free; //удаляем чекбокс
setLength( Tst, 0); // уменьшаем массив

check:=TCheckBox.Create(ListBox2); //чекбокс кидаю на листбокс2

procedure TForm1.Button_alphasDelClick(Sender: TObject);
begin
  tst[0].check.Free;    // удаляем чекбокс
...
// удаляем остальные контролы
...
  tst[0].btnDel.Free;   // удаляем кнопку
  SetLength(Tst, 0);    // уменьшаем массив
end;

type
  TMyButton = class(TButton)
    procedure DoRelease(var Msg: TMessage); message CM_RELEASE;
  end;
  TTest = record
    check:TCheckBox;
    btnDel:TMyButton;
  end;
 
 
// Это - обработчик ее нажатия
procedure TForm1.Button_alphasDelClick(Sender: TObject);
begin
  PostMessage((Sender as TMyButton).handle, CM_RELEASE, 0, 0);
end;
 
 
// А это - обработчик сообщения CM_RELEASE
{ TMyButton }
procedure TMyButton.DoRelease(var Msg: TMessage);
begin
  tst[Tag].btnDel.Free; //удаляем кнопку, подразумевается TMyButton.Tag
  tst[Tag].check.Free; //удаляем чекбокс
  setLength(Tst, 0); // уменьшаем массив, хотя это неверно, здесь не надо уменьшать
end;