Wird das
Query wirklich im Thread ausgeführt. Denn wenn die Komponente in TThread.create erstellt wird, gehört sie zumindest noch dem Mainthread (müsste man überprüfen, wie die Komponente arbeitet.
Ansonsten: sleep vermeiden, steht ja schon da.
Edit:
Ich persönlich find es blöd, da die Hauptanwendung im Endeffekt wieder einfriert.
Sieht ja so aus, als ob das notwendig ist. Stichwort Splashscreen und Vorarbeiten beim Start.