Como ir cambiando el caption de un label mientras ejecuto una funcion?

[Chente(rMan)]

Y si vuelves a pintar la forma?

Código Delphi [-]
query.execsql
.
.
.
milabel.caption := 'ahora estoy aca'
tuformat.Repaint;
query.sql.text := 'select.... ... '

o se me ocurre que en lugar de eso ocupes Application.processmessages algo asi.

Saludos.