hola
es logico que de un error ya que la variable de consulta
(:cod) en ningun momento ha sido vinculada con el parametro del dataset
(IBDataset.ParamByName('cod').asString:=edit1.text. te debe funcionar de la manera que expuso el compañero
defcon1_es