{
BorderIcons example
The following code removes a form’s Maximize button when the user clicks a button:
} 
procedure TForm1.Button1Click(Sender: TObject);
begin
BorderIcons := BorderIcons - [biMaximize];
end; 
