Query Progress bar for MSSQL

Is this possible in delphi 5/4 to show progress of a long query in mssql???
I looked at borlands example for using a batch move.. but it dosn't support
sql server queries.

Jim