[beavi5]

можешь вот так еще сделать

Код:

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;

подо6ие предыдушего варианта, только шапка останется