怎么定义下面涉及不同对象的过程或函数

procedure Tsb_jjbgl_cx.Edit3Change(Sender: TObject);
begin
   if trim(edit3.Text)<>'' then
   begin
       combobox11.Enabled:=true;
   end
   else
   begin
       combobox11.Enabled:=false;
   end;
  str5:='';
  if combobox6.Text='模糊查询'then
  begin
     str5:=str5+i5+' '+' like '+' '+''''+trim(edit3.Text)+'%'+'''';
  end
  else
  begin
     str5:=str5+i5+' '+trim(combobox6.Text)+' '+''''+trim(edit3.text)+'''';
  end;
end;combobox1  combobox2 edit1(datetimeedit1)  combobox9
combobox3  combobox4 edit2(datetimeedit2)  combobox10
combobox5  combobox6 edit3(datetimeedit3)  combobox11
combobox7  combobox8 edit4(datetimeedit4)  
其中combobox1 3 5 7.用于设置查询的关键字
其中combobox2 4 6 8.用于设置= > <> >= <= like <=条件
edit1(datetimeedit1)等用于设置输入的查询内容
combobox9 10 11用于设置逻辑关系
请问以下有什么好的实现方法，我有好多查询都一样，但是设及参数太多，有不知道怎么定义过程或函