Hola, le estas pasando al query con la expresion:
Query1.Params[1].AsString := 'PUESTO_ESPECÍFICO';
el valor del parámetro debes quitar las expresiones:
Query1.Params[..].ASstring...
y
QUERY1.ACTIVE:=TRUE;
y seguir con lo que tienes
Close;
....
espero te sirva
saludos a todos
