procedure TForm1.NewButtonClick(Sender:TObject);
begin
　ShowMessage('このボタンを破棄します');
　PostMessage(Handle,WM_User,WPARAM(Sender),0);
//TButton(Sender).Free とすると、消えるけれどエラー
end;

procedure TForm1.WMUser(var Msg: TMessage);
begin
　TLabel(Msg.WParam).Free;
end;