Liberar memoria de recursos

[usuario1000]

Buenas a todos,
Utilizo una aplicación dataSnap con Delphi Seatle, programada por mi, en el trabajo y me está empezando a dar un poco de dolor de cabeza. La aplicación la utilizan varios usuarios y parece que iba bien, pero ahora se está comportando un poco rara, y me dá que no se liberan los recursos que utilizo y me explico...
Si en una función utilizo lo siguiente:

Código Delphi [-]
  qCostes := TFDquery.Create(Application);
  qCostes.Connection := conexion;
  qDocumentos := TFDquery.Create(Application);
  qDocumentos.Connection := conexion;
  qCostes.Close;
  qCostes.sql.Clear;
  qDocumentos.Close;
  qDocumentos.SQL.Clear;
  .   .   .
  qCostes.Free;
  qDocumentos.Free;

Entiendo que de esta manera se liberan los recursos utilizados, no????

El servidor cuando lo cierro, se queda colgado con el reloj de arena mostrando las letras "SQL" debajo de él. En todos las funciones donde creo un componente tipo TFDQUERY lo creo y lo elimino de la manera descrita anteriormente.


Es cierto que también utilizo componentes TFDQUERY que he agregado en tiempo de diseño, aunque ahora lo que hago es crearlos en tiempo de ejecución en las nuevas funciones que utilizo, me parece más limpio y más claro, pero algo debe estar fallando.


Se agradece cualquier aclaración al respecto...



Gracias.