Código Delphi [-]DM.ADbuscarclientes.Filter:=QuotedStr('Codigo =' + TRIM(EBuscar.Text);
DM.ADbuscarclientes.Filter:=QuotedStr('Codigo =' + TRIM(EBuscar.Text);