[Resolvido] erro em consulta sql Firebird pegando valor de dbLooc

dm.SQL_dep.Close;

DM.SQL_dep.SQL.Add('select COD_DEP,DEPOSITO from DEPOSITOS WHERE ESTAB='+frmcadProdutos.edt_dep.KeyValue);

dm.SQL_dep.Open;

chamo esse evento no Onshow do form aberto...ai dá um erro Could not convert variant of type (Null) into type (OleStr)..alguma idéia???