problema al filtrar adoquery

[Van_Falen]

Aqui pongo un fragmento del codigo con el que tengo problemas
como pueden ver es en un oncalcfields de otro query y de ahi se obtienen las claves de los materiales para hacer el filtro.

procedure TfrExplota.qExplota4CalcFields(DataSet: TDataSet);
var
 cont,cont2:integer;
 i:integer;
 nFactor,cuantos:Real;
 bFound:boolean;
 encontrados en las existencias de adminpaq
begin
  With QExplota4 do begin
    if(Dataset.fieldbyname('Cve').asstring<>'')then begin
   moduloAdminpaq.qAdoInveAdminPaq.Filter:='producto='+quotedstr(Dataset.fieldbyname('Cve').asstring);
//aqui es donde manda el error, el codigo del producto sale del dataset en
 //el que se esta ejecutando el oncalcfields, y de hecho esta sentencia
 //funciona mientras la clave obtenida no traiga un guion