Запрограмуйте команди PopupMenu2.

procedure TForm1.N7Click(Sender: TObject); begin CheckBox1.Checked:=False; CheckBox2.Checked:=False; CheckBox3.Checked:=False; end; procedure TForm1.N8Click(Sender: TObject); begin CheckBox1.Checked:=true; CheckBox2.Checked:=true; CheckBox3.Checked:=true; end; procedure TForm1.N9Click(Sender: TObject); begin if CheckBox1.Checked=True then CheckBox1.Checked := False else CheckBox1.Checked := True; if CheckBox2.Checked=True then CheckBox2.Checked := False else CheckBox2.Checked := True; if CheckBox3.Checked=True then CheckBox3.Checked := False else CheckBox3.Checked := True; end;

Рис. 6.