En vez de utilizar
Assigned, puedes compararlo con la propiedad
connection. De manera que tendrías que sustituir la línea:
Código Delphi
[-] if Not (Assigned(Tq1)) Then
por lo siguiente:
Código Delphi
[-]if Tq1.Connection=nil then
Yo lo he probado así y funciona correctamente.