Una Ayudita consulta like y combobox

[[Caral]]

Hola
No entiendo muy bien pero aqui va una idea, tal vez te guie.

Código Delphi [-]
procedure TFConsPed.Edit1Change(Sender: TObject);
var
   Filtro : String;
begin
   If (Edit1.Text <> '') then
   begin
      ZPedido.Filtered := False;
If Combobox1.Text = 'Pedido' then 
begin
Filtro := 'no_ped Like ''' +Edit1.Text+ '*'''
end
else If Combobox1.Text = 'Trámite' then
begin
Filtro := 'tramite_no Like '''  +Edit1.Text+   '*'''
end
else If Combobox1.Text = 'Orden de Compra' then 
begin
      Filtro := 'oc_no_sigef Like '''  +Edit1.Text+   '*'''
and Filtro := 'oc_no_sigef1 Like '''  +Edit1.Text+   '*'''
and Filtro := 'oc_no_sigef2 Like '''  +Edit1.Text+   '*'''
and Filtro := 'oc_no_sigef3 Like '''  +Edit1.Text+   '*'''
end
else If Combobox1.Text = 'Carta Orden' then 
begin
Filtro := 'co1 Like '''  +Edit1.Text+   '*'''
end
else If Combobox1.Text = 'Carta Orden' then 
begin
Filtro := 'co2 Like '''  +Edit1.Text+   '*'''
end
else If Combobox1.Text = 'Carta Orden' then 
begin
Filtro := 'co3 Like '''  +Edit1.Text+   '*'''
end
else If Combobox1.Text = 'Carta Orden' then 
begin
Filtro := 'co4 Like '''  +Edit1.Text+   '*'''
end
else If Combobox1.Text = 'Status' then 
begin
Filtro := 'status Like '''  +Edit1.Text+   '*'''
end
end;
      ZPedido.Filter := Filtro;
      ZPedido.Filtered := True
   end
   else ZPedido.Filtered := False;
end;

Saludos