problema con espacios en like

[jpcancino]

mi problema esque hago una busqueda de la siguiente forma:

mysql:='SELECT CODIGO.CODIGO, CODIGO.NOMBRE, CODIGO.UNIDAD, PRECICAT.PRE'+
' FROM CODIGO INNER JOIN PRECICAT'+
' ON CODIGO.CODIGO = PRECICAT.COD WHERE CODIGO.NOMBRE LIKE '+#39+'%'+bprodn.edit1.text+'%'+#39;
rprod.query1.sql.Clear;
rprod.query1.SQL.Add(mysql);
rprod.query1.Open;

y el problema esque cuando busco una cadena que contenga espacios despues de la palabra que puse en el edit no me la muestra. Por ejemplo:
busco productos que comiencen con "adap", el problema esque me muestra:
adaptadro uno...
adaptador dos...

pero no me muestra los que comienzan con adap y luego hay un espacio, como:

adap uno...
adap dos...

espero que me hayan entendido
saludos