[delphi.com.ar]

Me tomé el atrevimiento de agregarle las etiquetas [delphi] a tu mensaje.

Particularmente veo queen las líneas:
qr1.Free;
qr1.Destroy;

Estas liberando dos veces el mismo objeto, y precisamente la segunda instrucción produce un error si el objeto no existe, ademas al liberarlo por lo que se ve en la función, no puedes volver a llamarlo ya que no lo vuelves a crear. Supongo que esta creado en tiempo de diseño por eso no falla la primera vez.

Saludos!