[__cadetill]

bueno, supongo que el código será de tipo string, por lo que deberías poner el valor del parámetro entre comillas

qyery.params[0].AsString := 'TO001';