Gracias estimados, dando vueltas con sus comentarios y códigos aplicándolo a lo que tenia resulto perfecto y quedo así:
Código Delphi
[-]procedure TClientes.Edit2Change(Sender: TObject);
const
STRSQL = 'Select * from CONTACTOCLIENTE ';
STRORDER = ' ORDER BY NOMBRES';
begin
BDatos.QContactoCliente.Close;
if (Edit2.Text = '') then begin
BDatos.QContactoCliente.SQL.Text := STRSQL;
end
else begin
BDatos.QContactoCliente.SQL.Text := STRSQL +
' WHERE Upper(NOMBRES) LIKE Upper(' + QuotedStr('%' + Edit2.Text + '%') + ')' +
'or Upper(APELLIDO) LIKE Upper(' + QuotedStr('%' + Edit2.Text + '%') + ')' +
STRORDER;
end;
BDatos.QContactoCliente.Open;
end;
Muchas gracias!!!