//Собитые клика по переключателю CheckBox2(красный)
procedure TForm1.CheckBox1Click(Sender: TObject);
begin
Form1.Color := clRed; //Устанавливаем красный цвет формы
//Увеличиваем на единицу значения количества переключений
Form1.CheckBox1.Tag := Form1.CheckBox1.Tag + 1;
//Выводим это значение на компонент Label1 как строку
Label1.Caption := IntToStr(Form1.CheckBox1.Tag);
end;
//Собитые клика по переключателю CheckBox2(синий)
procedure TForm1.CheckBox2Click(Sender: TObject);
begin
Form1.Color := clBlue; //Устанавливаем синий цвет формы
//Увеличиваем на единицу значения количества переключений
Form1.CheckBox1.Tag := Form1.CheckBox1.Tag + 1;
//Выводим это значение на компонент Label1 как строку
Label1.Caption := IntToStr(Form1.CheckBox1.Tag);
end;
Если Вы уже зарегистрированы на Портале - войдите в систему, если Вы еще не регистрировались - пройдите простую процедуру регистрации.