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

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;