При переключении между чекбоксами - ошибка Stack overflow. Как исправить эту ошибку?

[SkAndrew]

Добрый вечер!

Тестировано на Delphi 2007 win32 и Windows Vista Home Basic.
Проблемы с компонентом TCheckBox.
Вот два варианта кода:

procedure TForm1.CheckBox1Click(Sender: TObject);
// var i : Integer;
begin
{ for i := 0 to GroupBox1.ControlCount-1 do
begin
if TComponent(Sender).Tag = i then
(GroupBox1.Controls[i] as TCheckBox).Checked := True
else
(GroupBox1.Controls[i] as TCheckBox).Checked := False;
end; }

if Sender = CheckBox1 then
begin
CheckBox1.Checked := True;
CheckBox2.Checked := False;
CheckBox3.Checked := False;
CheckBox4.Checked := False;
end
else
if Sender = CheckBox2 then
begin
CheckBox1.Checked := False;
CheckBox2.Checked := True;
CheckBox3.Checked := False;
CheckBox4.Checked := False;
end
else
if Sender = CheckBox3 then
begin
CheckBox1.Checked := False;
CheckBox2.Checked := False;
CheckBox3.Checked := True;
CheckBox4.Checked := False;
end
else
if Sender = CheckBox4 then
begin
CheckBox1.Checked := False;
CheckBox2.Checked := False;
CheckBox3.Checked := False;
CheckBox4.Checked := True;
end;
end;

Финал один при переключении между чекбоксами выдает компиллятор следующую ошибку:

---------------------------
Debugger Exception Notification
---------------------------
Project Project1.exe raised exception class EStackOverflow with message 'Stack overflow'.
---------------------------
Break Continue Help
---------------------------

В чем проблема?

Спасибо.

[evg_m]

проблема в рекурсивном вызове OnCheckBoxClick.

Checkbox1.checked:=чтото
внутри себя имеет вызов OncheckboxClick
там опять checked:= и все по новой

если должен быть отмечен только один пункт то лучше использовать RadioButton или даже RadioGroupBox

[SkAndrew]

Не совсем понятно, тогда почему же в делфи 7 подобный код работал нормально? если не затруднительно можно объяснить более подробно. Спасибо.

[SkAndrew]

Может это имеет отношении специфически для делфи 2007? Кто-нибудь сталкивался с такой проблемой? Спасибо.

[Alter]

Сообщение от SkAndrew

Не совсем понятно, тогда почему же в делфи 7 подобный код работал нормально? если не затруднительно можно объяснить более подробно. Спасибо.

Неверно!! Рекурсивный вызов самого себя приводит к переполнению буфера, в данном примере. У меня Delphi 7, смотрите:

[SkAndrew]

Спасибо. Хотя у меня работало. Не могу понять почему, может каие другие процессы что-то перекрывали, но работало. Спасибо еще раз. Я думал, что может это связано с дефектом делфи 2007 или может каких-то компонентов, которые я установил. Потому и обратился за разъснением.ю. Спасибо.