Criar um formulário de Pesquisa(FILTRO)

Resolvido, solução:
procedure TfrmPesquisar.btnBuscarClick(Sender: TObject);
begin
case cbFiltro.ItemIndex of
0: try
dtmDados.CdCliente.Close;
dtmDados.CdCliente.CommandText:= 'select * from cliente where cod_cliente like :pcod_cliente';
dtmDados.CdCliente.ParamByName('pcod_cliente').Value := '%' + edtPesquisa.Text + '%';
dtmDados.CdCliente.Open;
finally
end;

1: try
dtmDados.CdCliente.Close;
dtmDados.CdCliente.CommandText:= 'select * from cliente where nome like :pnome';
dtmDados.CdCliente.ParamByName('pnome').Value := '%' + edtPesquisa.Text + '%';
dtmDados.CdCliente.Open;
finally
end;

2: try
dtmDados.CdCliente.Close;
dtmDados.CdCliente.CommandText:= 'select * from cliente where fantasia like :pfantasia';
dtmDados.CdCliente.ParamByName('pfantasia').Value := '%' + edtPesquisa.Text + '%';
dtmDados.CdCliente.Open;
finally
end;
end;

end;

Olá Otávio,

Seu código está corretíssimo, mas seria bom você otimizar o seu código por exemplo:



Espero ter ajudado, um forte abraço e fique com Deus.