🚀 go-pugleaf

Hi!

I modified ibx threaded query example (from codecentral)
a little, but it is still not what I would like.

ThreadQuery = class(TThread)
  private
    dmThread: TdmThread; // dynamically created datamodule
 ...
end;

var
  thdQuery : ThreadQuery;

and in other unit :
..
thdQuery := ThreadQuery.Create(..
..

Thread is set "FreeOnTerminate := True" in constructor
and has "dmThread.Free" inside destructor as in example.
I'm not creating any other components dynamically.

Now, if close main form, when thread is running, I get lots
of AV-s. I managed to create "running threads count"
variable, what forbids program exit, if threads count is >0.
but this is really a temporary solution. In delphi threads
example one can close main form when sort threads are running.

I'm too stupid in this area to create thread pool so I thought
it would be possible to do something like:

var
  thdQuery1, thdQuery2, thdQuery3 : ThreadQuery;

and just use one of these three variables (whichone is not
currently used). This leads to the following questions:
if I start query like:
thdQuery2 := ThreadQuery.Create(..

1) how can I set thdQuery2 to nil from thread, when it exits
2) is it legal to set  thdQuery2.Terminated := True; even if
thread is set to autoterminate
3) what should happen, when I close main form - are threads
terminated automatically or they continue run to end.

best regards,
Harri