Как отключить системное меню формы и кнопки Minimize, Maximize, Close во время выполнения?

В приведенном примере показано как это сделать


procedure TForm1.Button1Click(Sender: TObject);
begin
        {Disable}
        Form1.BorderIcons := Form1.BorderIcons - [biSystemMenu, biMinimize, biMaximize];
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
        {Enable}
        Form1.BorderIcons := Form1.BorderIcons + [biSystemMenu, biMinimize, biMaximize];
end;