Hola!!!
y sustituir el parámetro al momento de ejecutar la consulta:
Código Delphi
[-]
DataModuleBD.Query.ParamByName('ctrl').AsString := validancontrol.Text;
Disculpa pero, te refieres a colocar esta instruccion antes de la siguiente???
Gracias nuevamente por tu pronta atención!!!!