请问怎么调用另外两个不同控件的事件？？/ (26分)

procedure Tsb_bfgl_cx.DBDateTimeEditEh2Change(Sender: TObject);
begin
str3:='';
combobox10.Enabled:=true;combobox4.Enabled:=false;
if (combobox3.text='购入日期')or(combobox3.text='申请日期')or(combobox3.text='会审时间') then
begin
if dbdatetimeediteh2.Text<>' - - ' then
str3:=str3+i3+' '+trim(combobox4.Text)+' '+''''+trim(dbdatetimeediteh2.Text)+''''
else
str3:=str3+i3+' '+trim(combobox4.Text)+' '+'''';
end;
end;//对事件进行判断从而来查询
procedure Tsb_bfgl_cx.Edit2Change(Sender: TObject);
begin
str3:='';
if trim(edit2.Text)<>'' then
begin
combobox10.Enabled:=true;
end
else
begin
combobox10.Enabled:=false;
end;
if combobox4.Text='模糊查询'then
begin
str3:=str3+i3+' '+' like '+' '+''''+trim(edit2.Text)+'%'+'''';
end
else
begin
str3:=str3+i3+' '+trim(combobox4.Text)+' '+''''+trim(edit2.text)+'''';
end;
end;
//对事件进行判断从而来查询
procedure Tsb_bfgl_cx.ComboBox10Change(Sender: TObject);
begin//设置查询条件
str3:=' ';
if combobox4.Text='模糊查询' then
begin
str3:=i3+' '+' like '+' '+''''+trim(edit2.Text)+'%'+'''';
end
else
begin
str3:=i3+' '+trim(combobox4.Text)+' '+''''+trim(edit2.Text)+'''';
end;
if combobox3.Text='日期'then
begin
str3:=i3+' '+trim(combobox4.Text)+' '+''''+trim(dbdatetimeediteh2.Text)+'''';
end;
case combobox10.ItemIndex of
0: str3:=str3+' and ';
1: str3:=STR3+' OR ';
END;
end;;//进行逻辑选择,用到了前面两者的事件，感觉有点重复

procedure Tsb_bfgl_cx.ComboBox10Change(Sender: TObject);
begin
DBDateTimeEditEh2Change(nil);
Edit2Change(nil);
end;

好像有点繁乱

你不可以增加一个Bitbtn控件，统一来判断吗？？
设置一个变量在comboboxchange中!!