Query que deja de recibir datos despues de un tiempo

[balger]

Gracias a todos por los comentarios y tips.
Entiendo cuando hablan de organizar. Es cierto esta todo tirado ahi. y tambien cortar y pegar.
La idea era sacarlo rapido que funcione y luego organizarlo en un datamodule, ya que es algo simple, y mi experiencia con delphi es limitada. Y como quiero incursionar mas profundo. Me tomare un tiempo para hacerlo desde cero.
Gracias nuevamente.