请问一下有什么更好的实现方法，能被其他地方调用更好！

procedure Tsb_rcxhjcgl_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_rcxhjcgl_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;