Носколько я знаю, заменить штатный термометр не получится. Точнее, теоретически можно, но за счет страшных тормозов выполнения запроса.

Но в принципе, ведь этот термометр всегда имеет один и тот же размер и расположен по центру экрана.

Так какие проблемы поточнее "прицелится" и подвесить дополнительную формочку нужного размера с лейблом в заголовке так, чтобы открывшийся поверх нее термометр как раз и создал бы иллюзию одного окна?

Простейший вариант использовать опцию AT команды Wait

LOCAL lcText, lnWidth
lcText='Формируется список агентов!'
lnWidth=ROUND(TxtWidth(m.lcText)/FontMetric(6),0)
WAIT WINDOW AT SROWS()/2-5,(SCOLS()-m.lnWidth)/2 NOWAIT m.lcText
SELECT ... FROM ...
WAIT CLEARE

Правда тут надо поэкспериментирвать, чтобы "прицелится" поточнее по центру.

Ну или через НЕ модальную форму

DO FORM MessageForm.scx
SELECT ... FROM ...
MessageForm.Release()