폼에 Timer를 하나 얹어두고 OnShow에서 Timer를 Enable 시킵니다. 쿼리 작업은 OnTimer 이벤트 내에서 처리를 하시면 될 것 같습니다.
OnTimer 이벤트 안에 Timer->Enabled = false;를 넣으셔서 꼭 Timer 끈 후 쿼리작업을 시작해야겠죠.
꼼수스럽지만 그냥 생각나서 적어보았습니다^^ 참고하시길...

김창환 님이 쓰신 글 :
: 폼을 열기 전에 쿼리를 많이 돌려서 보여줄 값을 긁어와야 합니다.
:
: 이러한 이유로 OnShow() 이벤트에 쿼리를 넣고 돌리고 있는데, 시간이 너무 많이 소요되다 보니 FlatGauge를 올려놓고 진행상황을 표시해주려 했습니다.
:
: 그런데 OnShow() 에 있는 쿼리가 모두 끝나기 전에는 폼이 보여지지도 않고, 결과적으로 폼 위에 얹어둔 게이지도 나중에서야 처리가 다 끝나고 폼이 보여지면 그 때 100%로 보여진다는거죠.
:
: 혹시 도움이될까 해서
:   Gauge1->Refresh();
:   Application->ProcessMessages();
:
: 위 코드를 추가 해봤는데도 여전히 OnShow() 내의 처리가 다 끝난 뒤에 보여지고 있습니다.
:
: 이러한 문제를 해결하려면 어떻게 접근해야할까요?
: 이리저리 해봐도 해결책이 보이지 않아 도움을 청합니다.ㅠ