一个超级低级问题，有关CHECKBOX控件的。(10分)

我想实现以下程序：
当CHECKBOX1选取时，RICHEDIT。TEXT：=‘1111’
当CHECKBOX2选取时，RICHEDIT。TEXT：=‘2222’
当CHECKBOX3选取时，RICHEDIT。TEXT：=‘3333’
当CHECKBOX4选取时，RICHEDIT。TEXT：=‘1111’然后是：‘2222’，然后是：‘3333’；
就是说，CHECKEBOX4等于一个全选按钮，当它选中后，上面三个键都被选中，并依
次向RICHEDIT中发送上述字符，我想应该用个循环来实现的，可自已写的总实现不了。
那位老兄帮我写几句看看。谢谢了。

var
I: Integer;
begin
for I := 1 to 3do
//CheckBox1 .. CheckBox3 连续命名
TCheckBox(FindComponent(Format('CheckBox%d', ))).Checked := CheckBox4.Checked;
实在想不出这样写来做什么。 []

procedure TForm1.CheckBox1Click(Sender: TObject);
begin
self.RichEdit1.Clear;
self.CheckBox2.Checked:=false;
self.CheckBox3.Checked:=false;
self.CheckBox4.Checked:=false;
self.RichEdit1.Text:='1111';
end;
procedure TForm1.CheckBox2Click(Sender: TObject);
begin
self.CheckBox1.Checked:=false;
self.CheckBox3.Checked:=false;
self.CheckBox4.Checked:=false;
self.RichEdit1.Clear;
self.RichEdit1.Text:='2222';
end;
procedure TForm1.CheckBox3Click(Sender: TObject);
begin
self.CheckBox1.Checked:=false;
self.CheckBox2.Checked:=false;
self.CheckBox4.Checked:=false;
self.RichEdit1.Clear;
self.RichEdit1.Text:='3333';
end;
procedure TForm1.CheckBox4Click(Sender: TObject);
begin
self.CheckBox1.Checked:=false;
self.CheckBox2.Checked:=false;
self.CheckBox3.Checked:=false;
self.RichEdit1.Clear;
self.RichEdit1.Text:='1111'#13#10'2222'#13#10'3333';
end;

好的，谢谢二位了，没什么分了，只好表示我的谢意了，谢谢了。