[Mikes]

Добрый день. Написал следующий код :

Код:

procedure GetCheck ( Buff_box : TCheckBox );
begin
  Form1.CheckBox1.Checked := FALSE;
  Form1.CheckBox2.Checked := FALSE;
  Buff_box.Checked := TRUE;

end;


procedure TForm1.CheckBox1Click(Sender: TObject);
begin
   GetCheck ( Form1.CheckBox1 );

end;

Цель кода следующая - при клике на объект CheckBox1 этот объект посылается как параметр в функцию GetCheck. Смысл этой функции - убрать галочки со всех объектов CheckBox на форме, после чего поставить галочку только в тот CheckBox, который передан параметром. Код работает некорректно, при нажатии на CheckBox1 объект мигает и выкидывает в ассемблерский код. Буду рад помощи. Заранее спасибо.