Программно одновремено запретить иконки, 'Свернуть' и 'Развернуть'

//---------------------------------------------------------------------------
 
#include <vcl.h>
#pragma hdrstop
 
#include "Unit3.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm3 *Form3;
//---------------------------------------------------------------------------
__fastcall TForm3::TForm3(TComponent* Owner)
    : TForm(Owner)
{
 
}
//---------------------------------------------------------------------------
void __fastcall TForm3::Button1Click(TObject *Sender)
{
TBorderIcons BI;
BI.Clear();
BI = BI << biMinimize << biSystemMenu;
BorderIcons = BI;
}
//---------------------------------------------------------------------------
void __fastcall TForm3::Button2Click(TObject *Sender)
{
TBorderIcons BI;
BI.Clear();
BI = BI << biMaximize << biSystemMenu;
BorderIcons = BI;
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Button1Click(TObject *Sender)
{
TBorderIcons BI;
BI.Clear();
BI = BI >> biMinimize >> biMaximize<<biSystemMenu;
BorderIcons = BI;
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Button1Click(TObject *Sender)
{
        // Отключает "свернуть и развернуть"
    TBorderIcons tempBI = BorderIcons;
    tempBI >> biMaximize >> biMinimize;
    BorderIcons = tempBI;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button2Click(TObject *Sender)
{
        // Включает "свернуть и развернуть"
        TBorderIcons tempBI = BorderIcons;
    tempBI << biMaximize << biMinimize;
    BorderIcons = tempBI;
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Button1Click(TObject *Sender)
{
HMENU MenuHandle = GetSystemMenu(Handle, false);
    if(MenuHandle)
{
        DeleteMenu(MenuHandle, SC_MAXIMIZE, MF_BYCOMMAND);
        DeleteMenu(MenuHandle, SC_MINIMIZE, MF_BYCOMMAND);
}
}

void __fastcall TForm1::Button1Click(TObject *Sender)
{
HMENU MenuHandle = GetSystemMenu(Handle, false);
    if(MenuHandle)
    DeleteMenu(MenuHandle, SC_MAXIMIZE, MF_BYCOMMAND);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button2Click(TObject *Sender)
{
HMENU MenuHandle = GetSystemMenu(Handle, false);
    if(MenuHandle)
    DeleteMenu(MenuHandle, SC_MINIMIZE, MF_BYCOMMAND);
}