Adoquery con parametros

[erasmorc]

Saludos a todos

Estoy trabajando con sql2k como base de datos, utilizo componentes adoqry para unas consultas y quiero buscar un campo que se parezca a un texto que envio como parametro para activar el qry, el problema esta en que probando el qry desde el query analizer de SQL me funciona, cuando intento pasar los parametros desde delphi entonces no me devuelve nada en las lineas de qry.

Este es el qry usado desde el query analizer, que funciona bien
select codigo,empresa,corporativo
from basicosdq..clientes
where corporativo Like '%0930%'


Estas son las lineas que tengo dentro del componente AdoQuery
Select Codigo,Empresa,Corporativo
From Basicosdq..Clientes
Where Corporativo Like :PCodigo


y este esta es la forma en que activo y paso los parametros al query
Wbusca := QuotedStr('%'+TrimRight(FRecibosMult.Edit3.Text)+'%');
FRecibosMult.QClientesSc.Close;
FRecibosMult.QClientesSc.Parameters.ParamByName('PCodigo').Value := wbusca;
FRecibosMult.QClientesSc.Open;

Posteriormente valido el valor de wbusca que es donde guardo el string que paso al query y me devuelve '%0930%' que es la misma cadena que coloco en el query analizer y que funciona.

Realmente no se que pueda ser, agradeceria cualquier ayuda.

[[fjcg02]]

Empezado por erasmorc

Wbusca := QuotedStr('%'+TrimRight(FRecibosMult.Edit3.Text)+'%');
FRecibosMult.QClientesSc.Close;
FRecibosMult.QClientesSc.Parameters.ParamByName('PCodigo').Value := wbusca;
FRecibosMult.QClientesSc.Open;

Deja Wbusca sin la funcion Quotedstr y prueba.

Ya nos contarás.

Suerte y un saludo

[erasmorc]

Nitido, funciono a la perfeccion, gracias mil.