关于一个Panel类的控件开发问题！！(100分)

我想做一个控件，是一个Panel，里面有一个ComBoBox,两个DateTimePicker，其中先让ComBoBox.Items.Add('between');
ComBoBox.Items.Add('<=');
也就是当ComBoBox选择'between'时，显示两个DateTimePicker，当选择'<='时显示一个DateTimePicker，现在就是怎么获取ComboBoxChange事件，来确定DateTimePicker的显示个数。
我才刚开始学做控件，这方面还没摸着头脑，请高手指点的详细一点，如能给一个相近的源程序更好。

procedure TForm1.FormCreate(Sender: TObject);
begin
ComboBox1.Items.Add('between');
ComboBox1.Items.Add('<=');

DateTimePicker1.Visible := False;
DateTimePicker2.Visible := False;
end;

procedure TForm1.ComboBox1Change(Sender: TObject);
begin
if ComboBox1.Text = 'between' then
begin
DateTimePicker1.Visible := True;
DateTimePicker2.Visible := True;
end
else
begin
DateTimePicker1.Visible := True;
DateTimePicker2.Visible := False;
end;
end;


帅哥，给分把。

to:沧海
人家是在写控件,不是说放一个form 放几个控件来显示.

在你的控件中自己写一个 ComboBoxChange 的事件,然后让你的控件中的 ComboBox.ComboBoxChange 等于这个事件就可以了

加事件的我知道了，但是现在我加了两个属性，也就是beginDate,EndDate,分别对应两个DateTimePicker的日期，我怎么在运行时设置两个属性，同时改变DateTimePicker的日期呢？？这个代码怎么写？

问题我已经解决了，谢谢!

多人接受答案了。