Form1,Form2가 있습니다...

Form1에서 버튼을 클릭시 데이터베이스의 자료를 가지고 와서 그리드에 출력하게 됩니다.
여기서 일종의 진행중이라는 표시를 나타내어주는 폼을 띄웠다가 자동으로 폼을 닫을려고 하는데
좀처럼 되지않네요...

원래 구현하고 싶었던것은 데이터베이스에 쿼리시 일종의 진행바같은것을 보여주고 싶었는데..
쿼리가 끝나는 시점을 계산해 낼수없어서 이방법을 쓰기로 했습니다.

디비에 쿼리를 날리는것은 Thread로 구현하였습니다.

저의 소스입니다.

////////Form1의 소스
void __fastcall TForm1::ToolButton11Click(TObject *Sender)
{
        //처리중 폼을 뛰운다...
        Form2->ShowModal();
}


처리중임을 나타내는 Form2소스

QueryThread *QThread;
void __fastcall TForm2::FormActivate(TObject *Sender)
{
        // DB Query
        QThread = new QueryThread(false);
        Form2->Close();
}


이런식으로 해서 버튼을 클릭하니 새폼이 뜨긴 뜨는데... 폼이 닫히질 않는군요...

제가 생각한 방법말고 쿼리를 실행하면 일종의 진행상황을 표시할수 있는 방법이나 아이디어 계신분도 알려주시면 고맙겠습니다^^

여러 고수님들 해결 방법좀 제시 부탁드릴께요~~