Mazanie položiek zo systémového menu programu.

procedure TForm1.Button1Click(Sender: TObject);
var
  handle: THandle;
begin
  handle := GetSystemMenu(Self.Handle, false);
  RemoveMenu(handle, 6, MF_BYPOSITION);
  RemoveMenu(handle, 5, MF_BYPOSITION);
end;