problema con consulta en winxp

[jpcancino]

procedure Tbprodn.busClick(Sender: TObject);
var mysql:string;
begin
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+' AND PRECICAT.PRE > 0';
rprod.query1.sql.Clear;
rprod.query1.SQL.Add(mysql);
bprodn.Visible:=false;
busc.Show;
rprod.query1.Open;
rprod.Show;
bprodn.Visible:=true;
bprodn.Close;

ese es el código completo en el boton de busqueda, en este caso es otro formulario, no dode está el query, pero me pasa el mismo problema