Innerhalb Deines Creates wird der Thread direkt ausgeführt -- kann sein, daß der Event-Handler hier schon garnicht mehr gesetzt wird, weil der Thread bereits durch ist... Kann mich aber auch täuschen.
Versuche es mal mit dem abgeleiteten Create:
inherited Create(TRUE);
und in Deinem With-Block so:
Delphi-Quellcode:
With TSyncThread.Create(Console,
DB)
do
begin
OnTerminate := ThreadIsDone;
Resume;
end;
[edit] Vor allem sollte FreeOnTerminate noch gesetzt werden, weil sonst der Speicher nicht mehr freigegeben wird! ;) [/edit]
Fehlt in der Abfrage nicht ein abschliessendes Semikolon? (*Nur mal so frag*)
SQL.SQL := 'SELECT * FROM z_wct_configs[b];[/b]';