Как сделать checkbox случайным?

[Serg-Grin]

Здравствуйте. Как можно сделать выбор checkbox случайным? Если у меня на форме 4 чекбокса. И мне нужно чтобы через timer они нажимались автоматически. Но только если нажат 1, то 3 остальных не могли быть включенны. И так наоборот. Только чтобы 1 был включен. Помогите, очень нужно...

[Deamonig]

Они должны включатся по очереди?

[soleil@mmc]

юзай вместо чекбоксов группбокс

[Stilet]

Видимо нужно что-то подобное этому:

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  CheckBox4.Checked:=CheckBox3.Checked;
  CheckBox3.Checked:=CheckBox2.Checked;
  CheckBox2.Checked:=CheckBox1.Checked;
end;

[Deamonig]

Вот собственно код:

procedure TForm1.Timer1Timer(Sender: TObject);
var k:byte;
begin
randomize;
k:=random(4)+1; //выбор случайного чекбокса
case k of
1:begin
   CheckBox1.Checked:=true;
   CheckBox2.Checked:=false;
   CheckBox3.Checked:=false;
   CheckBox4.Checked:=false;
  end;
2:begin
   CheckBox1.Checked:=false;
   CheckBox2.Checked:=true;
   CheckBox3.Checked:=false;
   CheckBox4.Checked:=false;
  end;
3:begin
   CheckBox1.Checked:=false;
   CheckBox2.Checked:=false;
   CheckBox3.Checked:=true;
   CheckBox4.Checked:=false;
  end;
4:begin
   CheckBox1.Checked:=false;
   CheckBox2.Checked:=false;
   CheckBox3.Checked:=false;
   CheckBox4.Checked:=true;
  end
end;
end;

[Serg-Grin]

Спасибо большое, последнее сообщение, то которое я хотел. Спасиба всем !!!

[Serg-Grin]

Как еще сделать, если 1 чекбокс = 2 чекбоксу, чтобы вышел результат.
У меня не получается.
if checkbox1.checked = checkbox2.checked then
label1.caption:='Hello World';

У меня ничего не выходит. Помогите !!!

[raxp]

согласно вашему же условию и последнему коду

Только чтобы 1 был включен

условие

if checkbox1.checked = checkbox2.checked

не выполнится никогда

[Deamonig]

Если ты имееш в виду что оба чекбоксы с галочкой или оба без нее, то вот:

 
if ((checkbox1.checked=true) and (checkbox2.checked=true)) or 
((checkbox1.checked=false) and (checkbox2.checked=false))
then label1.caption:='Hello World';

[Serg-Grin]

Ясненько. Ну спасиба